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ALKALMAZOTT KONFIGURÁCIÓK 


COMMODORE-—64: 


1530 DATASETTE UNIT. MODEL C2N. 
VC—1541 FLOPPY DISK-ek (8 és 9). 
MPS-8Ó1 DOT MATRIX PRINTER. 
VT SUPER COLOR TELEVIZIÓ. 
COMMODORE-64 MICRO COMPUTER 


ABC—80: 


ABC—8Ó IKER KAZETTÁS EGYSÉG. 
VT SUPER COLOR TELEVIZIÓ. 
ABC-—80 SZÁMITÓGÉP 


HT-—. . 80 Z: 


A SZÁMITÓGÉPBE BEÉPITETT KAZETTÁS EGYSÉG. 
VT SUPER COLOR TELEVIZIÓ. 
HT-108íZ, VAGY HT-—2Ó8ÓZ SZÁMITÓGEP. 


TEXAS-99: 


CASETTE RECORDER SANYO. MODEL 2502 U. 
H/C PERIPHERIAL EXPANSION SYSTEM. 

VT SUPER COLOR TELEVIZIÓ. 

TI—99/4A TEXAS INSTRUMENTS. 


PRIMO: 


CASETTE RECORDER SANYO, MODEL 2502 U. 
VIC—-1541 FLOPPY DISK, VAGY FDU 1109 FLOPPY. 
DATACOOP-DCD-PRT42 PRINTER. 

VT SUPER COLOR TELEVIZIÓ. 

PRIMO—A—32, VAGY PRIMO—A—64 M. SZÁMITÓGEP. 


TV COMPUTER: 


CASETTE RECORDER SANYO. MODEL 2502 U. 
TV COMPUTER IKER FLOPPY (A és B). 
WM2O)D PRINTER. 

VT SUPER COLOR TELEVIZIÓ. 

VIDEOTON TV COMPUTER-—32, VAGY 64. 


VT-16: 


COMPUPRO WFLOPPY (0). 

VT DISPLAY ÉS IKER FLOPPY (A és B). 

WMAODÓ PRINTER. 

VT-16 PROFESSZIONÁLIS SZEMÉLYI SZÁMITÓGEÉP. 


TISZTELT KOLLÉGA! 


Ha Ön megtisztelt azzal, hogy könyvemet a kezébe vette, mindent meg szeretnék tenni, 
hogy ötletét ne bánja meg. 

Könyvem rendhagyó. Nyitott állapotában a jobboldali lapon találja a tananyagot, amit 
COMMODORE—64-re (C— 64) alkalmazunk. A baloldali lapon regiszterek állnak, amelyek- 
ben a címlapon felsorolt gépekre módosítjuk a C—64-re adott megoldásokat. 

A tananyag mintegy 125 alkalmazási feladatra épül. A feladatok didaktikai rendszert 
képeznek, az egyszerűtől a bonyolult felé vezetnek. Minden feladat megoldása igényel valami 
újat. Igy a kezelési, programozási és alkalmazási ismeretek tára állandóan bővül, az ismert 
elemek pedig rutinírózódnak. 

A tananyag feltételezi, hogy Ön személyi számítógép elé ül és , utasításai " szerint dolgozik. 
Ha a problémákat egymásután megoldja, készséget szerez a személyi számítógép manuális 
kezelése, programozása és alkalmazása területein. Minden probléma egy lehetséges megoldását 
közöljük. Próbálja ki, szerezzen tapasztalatokat. Csak akkor menjen az anyagban tovább, ha 
megértette a megoldás minden részletét és ismeri funkcióját. 

A programok BASIC, illetve EXTENDED BASIC nyelven íródtak. Egyes gépek PASCAL, 
FORTRAN stb. , nyelveken megírt programokat is kezelni tudnak, de ezzel nem foglalkozunk. 
A BASIC megoldások hátterét magyarázatok világítják meg. Ezek C—64-re érvényesek, de ritka 
kivételtől eltekintve konvertálhatók a regiszterekben szereplő gépekre is, ha az ott közölt 
módosításokat értelmezik. Alapvető eltérések esetén irodalmi forrást jelölünk meg. 

A könyvben található programokat a címlapon felsorolt gépek mindegyikén teszteltük, 
működésüket garantáljuk. A felhasznált adatokat nem közöljük, mert az Ön által választott, 
bemenő adatoknak is meg kell felelnie, ha eleget tesznek a feladat követelményeinek. 


HOGYAN DOLGOZZON? 


Ha a számítógép-ismeretben kezdő, akkor kövesse a szerzőt az első oldaltól az utolsóig. 
Csak akkor lapozzon előre, ha erre felkérik és térjen vissza, ha azt ajánlják. 

Induljon ki az [1] problémából és oldja meg. A közölt megoldásban jelek utalnak a tenni- 
valókra. A 2 jel mindig gépkezelési (pl. kapcsolás), a 2 jel pedig gépírási feladatra kéri fel. 
Sok bosszúságtól menekül meg, ha a 2 jelet követő karaktereket (betűk, számok, szóközök 
stb.) hiba nélkül kopogja le, mert mindegyiknek, az adott gépre jellemző funkciója van. Minden 
gépen találhatók kezelő gombok (pl. SHIFT). Ezek lenyomására nevük bekeretezésével (pl. 

SHIFT ]) utalunk. 

A személyi számítógép párbeszédre képes. Értelmezi közléseinket és válasz-lépésekkel 
reagál. Eredményeit tőlünk függetlenül (pl. hibajelek), illetve utasításainknak megfelelően a 
képernyőn közli. Figyelje a képernyőt. Esetenként megadjuk, hogy mit kell a képernyőnek 
mutatnia. A kettőzött vonalpár II Ila képernyőre utal. 


A számítógépek munkáját parancsok és utasítás sorozatok (programok) irányítják. 
A parancsok végrehajtása lekopogásukat követően kezdeményezhető, szemben az utasításokkal, 
amik programba szervezve aktiválhatók. A parancsok jelzésére a "-ot használjuk. 

A porgram meghatározott munkarendet hordoz. A munkarendet az utasítások program- 
ban elfoglalt helye és tartalma határozza meg. A munkarend grafikusan ábrázolható. Ilyen 
grafikon (munkagráf) található egyes programok baloldalán, amelyben a W-ek a melletük 
fekvő utasítás végrehajtását, a nyilak pedig a soronkövetkező utasításra való átugrást jelzik. 
Tapogassa végig a munkagráfokat és értelmezze a kiváltó utasításokat. 

A gépekhez kiegészítő berendezések, képernyő (display), magnetofon (tape recorder), 
lemezegység (floppy disk), nyomtató (printer) stb. tartoznak. Ezek munkáját is parancsok, 
illetve program részek vezérlik. A gép munkájába. való bekapcsolódásukat a munkagráfon 
jelezzük. A O O jel a magnetofonra, a[d jel a lemezegységre és a A jel a nyomtatóra utal. 

Ha egy probléma megoldását érti és sikeresen keresztül tudja vinni a gépen, áttérhet a 
következő problémára. A közölt megoldásokban vastagbetűs részeket talál. Igy emeljük ki az 
új ismereteket első előfordulásuk alkalmából. 

Néhány órai munka után már gondolhat arra, hogy megoldásainkat saját megoldásokkal 
helyettesíti és a feladatok bővítésével vagy átfogalmazásával új program megírására és alkal- 
mazására vállalkozik. Például egy területszámítási program az adatok és képletek megfelelő 
változtatásával, vagy térfogat számítási programmá fejlesztésével stb., nyújthatja Önnek a 
saját munka élményét. 

Ha nem C-—64 előtt ül, hanem a szóbanforgó gépek közül egy másikkal dolgozhat, akkor 
is érvényesek az elmondottak azzal a kiegészítéssel, hogy a tüköroldal, gépével egyező című 
regiszterét is tanulmányoznia kell. Az Ön gépére vonatkozó megoldások ugyanis kisebb-na- 
gyobb mértékben eltérhetnek a C—64-re adott megoldásoktól. A regiszterben csak az eltérést 


találja. Ha ezt tételesen behelyettesíti a C—64 megoldásba az Ön gépére érvényes megoldás- 
hoz jut. A tételeket X választja szét a regiszterben és számjelek teszik azonosíthatóvá a 


behelyettesítési pontokat! Ha egy utasítás csak részben tér el a C—64-re érvényestől, akkor 
előfordul, hogy csak a helyettesítendő rész kerül a regiszterbe. Erre a rész előtt vagy után 
elhelyezett : figyelmeztet (a részt megelőző, illetve követő elemek C—64 szerint érvényesek). 
Az eltéréseket , csak" első előfordulási helyükön jelezzük a regiszterben, később már ismert- 
nek tételezzük fel. Itt is alkalmazzuk a vastag betűs kiemelést, mert az előbbi , csak" a nehe- 
zebben megjegyezhető eltérésekre nem vonatkozik. Ha a regiszterben a probléma száma után 
(OKK jelzés (okay) áll azt jelentheti, hogy a szóbanforgó gép a C—64 megoldást egy az egyben 
elfogadja, de jelentheti azt is, hogy új eltérés nem merült fel. 

A gépek használata programok és adatok bevitelét feltételezi. Ez időrabló gépírási munkát 
jelent. Mivel egyes programok és adatok többször is felhasználásra kerülnek könyvünkben, 
sőt a gyakorlati alkalmazásukra is gondolhat (pl. munkahelyén), gondoskodjon a megőrzésük- 
ről. Ezt a lehetőséget a kiegészítő berendezések (magnetofon, lemezegység stb.) biztosítják. 
Alkalmazásuk időben való megismerését előre-lapozással és visszatéréssel oldjuk meg. 

Anyagunk olyan C—64-re szól, amelyhez kazettás magnetofon, floppy disk, printer 
és képernyő tartozik. A címlapon felsorolt gépek, ipari vagy kereskedelmi adottságok miatt 
ettől eltérő konfigurációban is előfordulhatnak. Egységek (floppy disk, printer, kazettás 
magnetofon) hiányozhatnak, egységek (kazettás magnetofon, floppy disk) duplikáltak stb. 
A hiányzó egységeket más, rendszeresített elemekkel helyettesítjük, hogy Ön ne maradjon ki 
a programozás és alkalmazás szempontjából fontos problémák megoldásából. A helyettesítés- 
ről a regiszterek a felmerülési pontban tájékoztatnak. Ha egy feladat megoldása nem nélkülöz- 
heti a helyettesített egységet, akkor a feladat számát a regiszterben aNEMf szó zárja. 

A kiegészítő berendezések kis lámpákkal jelzik a készenlétet, az effektív munkát és zava- 


raikat. Kiegészítő jelzésként követhetjük mozgásaikat, zajaikat és hangjelzéseiket. Figyelje 
a jelzéseket, mert tennivalóira utalhatnak. 

Gyakorlott számítástechnikus Ön? Ebben az esetben három dolgot tekintsen át: milyen 
gépek, milyen alappéldák és milyen gépkezelési-programozási utasítások szerepelnek a könyv- 
ben. Az elsőt a címlapon, a másodikat a könyv elején lévő tartalomjegyzékben, a harmadikat 
pedig a könyv végén elhelyezett -utasításjegyzékben találja. A két utóbbi oldalszámokkal 
irányítja a keresett dolog megtalálásában. Bízom benne, hogy ez a mű kézikönyvként fogja 
szolgálni Önt alkotó munkájában. 

Ne marasztalja el a szerzőt, amiért a programokból kihagyta az irracionális elágazásokat 
(pl. negatív távolság, idő stb.), mert a programok áttekinthetősége volt a cél. Nem mutatjuk 
be a gépek összes képességeit, mert egyrészt úgy ítéljük meg, hogy a felvett ismeretek birtoká- 
ban könnyen megtanulhatja minden érdeklődő például a zenei anyagok megjelenítését vagy 
játékképek programozását a gépkönyvből, másrészt nem titkoljuk, hogy olvasóink figyelmét a 
számítógépek érdemi felhasználására szeretnénk inkább irányítani, nem lebecsülve hanem 
megalapozva a gépek játék funkcióját is. 


HOGYAN KEZELJE A GÉPÉT? 


A gyártó gondosan ügyel arra, hogy gépe és kiegészítő berendezései ne kapcsolódhassa- 
nak egymáshoz és az áramforráshoz a leégés veszélyével. Ezt a dugaszoló kapuk és dugók páron- 
ként eltérő formáival érik fel. Idegen kábelt ne tűrjön meg a gép körül. A géprendszer össze- 
állítását megkönnyítik a gépkönyvek rajzos útmutatói. 

Az ember és a számítógép párbeszédében az iniciális közvetítő szerepét a klaviatúra (író- 
gép) tölti be. Használati tudnivalók: 

— Az egyjeles (pl. LAJ] (B] stb.) gombok leütésekor a képernyő visszatükrözi a jelet. 

- A két fedőjeles (pl. stb.) gombok leütésekor az alsó jelek (2), a gomb- 
bal együtt leütve pedig a felső jelek (2 érvényesülnek. 

— Egyes gépeken (pl. C-64, TEXAS-99 stb.) homoljeles (pl. sam stb.) gombokat is 
találunk, ezek az , illetve kezelő gombbal együtt leütve aktiválódnak. 

— A gépek automatikusan váltanak sort, ha a képernyő-sor végére érünk. A sor hossza 
gépenként változik. Ha a sorváltást a sor vége előtt kezdeményezzük, le kell ütnünk a sorváltót, 
ami ( RETURN] , [ NEW LINE , [ ENTER / stb. neveket viselhet. 

- A képernyőn egy villogó alakzat, (pl. négyzet, szakasz, háromszög stb.) a kurzor jelöli 
ki, hogy a következő leütésünk hol jelenne meg. A kurzor pozícióját megváltoztatja a sorváltó, 
a lécbillentyű, a nyilas (pl. stb.) gombok és gépenként változó gomb kombinációk leütése. 

— Ha egy gombot vagy a lécet lenyomva tartjuk, akkor a kérdéses jel, illetve szóköz soro- 
zódik a képernyőn és felülírja, vagy eltolja az útjában álló jeleket. 

— A sorváltó a gép legfontosabb billentyűje. Parancs lekopogása után leütve elindítja a 
parancs végrehajtását, utasítás lekopogása után leütve elindítja az utasítás memorizálását, fel- 
téve, hogy bizonyos hibák az utasításban nem fordulnak elő. Az utasítások sorszámmal kezdőd- 
nek (pl. IÓ READ A). Ez biztosítja a program rendezését és nyilvántartását. 

- A gépek csak azt a nyelvet (szókészlet és nyelvtan) értik, amire képesítették (beége- 
tett, betöltött BASIC). Ha törjük a nyelvet, utasításaink hibásak lehetnek és megértés hiányá- 
ban végrehajtásuk elmarad. A gép a képernyőn közli a hibát, körvonalazva jellegét (pl. SYNTAX 
ERROR; helyesírási hiba), vagy azonosítási lehetőségét (kód). 

— A hibák egyik forrása a melléütés, amit a klaviatúrán követhetünk el. Ha rögtön észre- 
vesszük a melléütést, akkor a gomb leütéseivel visszaléptetjük a kurzort és a hibás jelet 
felülírjuk. 


— Ha egy parancs vagy utasítás a végrehajtás során bizonyul hibásnak, ismételten lekopog- 
juk hibátlanul (az utasítások sorszámát is) és a sorváltó leütésével a végrehajtás, illetve a prog- 
ramban való behelyettesítés veszi kezdetét. 

— A javítás és módosítás további lehetőségeit az anyagban fogjuk megismerni. 

— A géprendszert védje az ütődésektől, a sugárzó hőtől, a por és hamutól, a folyadékok- 
tól,a mágnesezett idegen tárgyaktól és a figyelmetlen kapcsolásoktól. 

— A tároló szalagok és lemezek nem állják a —10 fok alatti hideget, a hajlítást és gyűrést, 
a mágnesezett tárgyakat és csupasz részeik fogdosását. 

— Ha a géprendszer bármelyik eleme meghibásodik, szakemberre van szüksége, kivétel 
a magnetofon tisztítása. 


A TÍPUSVÁLASZTÉKRÓL 


A magyar gazdaság és társadalom intenzív fejlődésének egyik kulcsa a programozható 
automaták általános alkalmazása. Ehhez importból származó és hazai gyártású gépek szolgál- 
tatják a bázist. Az alkalmazás mindannyiunk megszerezhető készségére vár. 

A TEXAS-99, a C—64 és az IBM PC (Personal Computer) a hasonló nevű tőkés cégek 
terméke. 

Az ABC—80 (Budapesti Rádiótechnikai Gyár), a HT—1OB8ÓZ és —2O8ÓZ (Híradástechnikai 
Szövetkezet), a PRIMO—32 és —64 (Számítástechnikai és Automatizálási Kutatóintézet—Cosy), 
a TV COMPUTER (VIDEOTON), a VT—-16 (VIDEOTON) és a PROPER 16 (Számítástechnikai 
Koordinációs Intézet) hazai gyártmány. 

A felsorolt gépekből tekintélyes mennyiség van családok, intézetek és vállalatok bitokában. 
Tanulásra egyformán alkalmasak, de a gépkezelés és programozás ugyanolyan jól megtanulható 
az ABC—8Ó, a HT—IÓBSÓZ, a HT—2ÓBÓZ, a PRIMO—32 gépeken, mint a kiépítettségük maga- 
sabb foka miatt a gazdasági munkába is beállítható TV-COMPUTER, PRIMO-64, TEXAS-99 
és C—-64 gépeken. A VT—16, a PROPER—-16 és az IBM PC alapozó tanulásra való használata 
már luxus, mert professionális gépekről van szó, amik kisebb vállalatokat és intézményeket 
képesek kiszolgálni. 

Miért kerültek mégis egy gyékényre ezek a gépek? Azért, hogy az Ön horizontja nyitott 
legyen. 


AZ OPERÁCIÓS RENDSZERRŐL 


Parancsaink és programjaink értelmezését és végrehajtását a géprendszer operációs rend- 
szere bonyolítja. Az operációs rendszer értelmező, szerkesztő, vezérlő és végrehajtó. programból 
áll és a gép típusára jellemző. Az operációs rendszer és a gép viszonya többféle lehet: 

— Az operációs rendszer a gép belső tartozéka (beégetett BASIC), tehát bekapcsolás után 
a géprendszer azonnal munkakész. Ilyen az ABC—80, a HT—IÓBÓZ, a C—64, a PRIMO—32 és 
a TV COMPUTER. 

— Az operációs rendszer egy beégetett és egy betölthető részből áll. Az első rész az 
előbbiek szerint működik. A második rész bázisa speciális rendszerlemez (TEXAS-99 : EXTEN- 
DED BASIC), magnetofon kazetta (PRIMO—64 : CDOS), vagy floppy lemez (PROPER 
16/a : PROPOS-16 V 2.ÓD). Betöltés után aktivizálható, a gép kikapcsolásával törlődik. A 
betöltésre a regiszterek figyelmeztetnek. 
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— Beégetett operációs rendszerrel nem számolhatunk. Floppy lemezről olvassuk be, a 
gép bekapcsolását követően az operációs rendszert (VT—16 : UDOS V 2.0, VT BASIC), mely 
azonnal munkakész. A gép kikapcsolásával törlődik. 

A betölthető operációs rendszerek lehetnek a gépek tartozékai, vagy külön vásárolhatók. 
Ez utóbbi kategóriába tartoznak a géprendszer elemeit ellenőrző (C—64 : TEST DEMO) és 
adathordozókat formalizáló (TEXAS-99 : DISK MANAGER COMMAND MODULE) eljá- 
rások segítő programjai, stb. 


A PROGRAMRÓL 


A gondolkodó ember valamiből következtet valamire, vagyis input-transzformáció-output 
sémával él. Ha a következtetési folyamatot számítógépre szervezzük a séma nem változik, de 
nekünk kell gondoskodni a három tevékenység olyan elemekre bontásáról, amiker a számí- 
tógép képes megoldani és következésük rendjét tartani. Az elemi tevékenységek utasításokkal, 
a folyamat utasítások sorozatával, a programmal váltható ki. 

Az input (adatbevitel) és az output (eredményközlés) módja a géprendszer kiépítésétől 
függ. A transzformáció (átalakítás) a gyakorlat igényeit és összefüggéseit kielégítő technológia 
végigvitele. A technológia matematikai és logikai formulák sorozatában testesül meg. 

Programunk hibás lesz, ha rosszul válaszjuk meg a technológiát, ha nemlétező periféri- 
áról biztosítjuk az adatokat, vagy ilyen helyre irányítjuk az eredményeket, ha valamely elemi 
tevékenység kiváltására más tevékenység utasítását vesszük igénybe, ha utasításaink sorrendje 
eltér a kivánatostól, ha hibásan írunk BASIC-ül stb. 

Az első hibát próbaszámítások eredményei jelzik. Olyan adatokkal vizsgáltatjuk progra- 
munkat, hogy kézzel is kiszámolhassuk az eredményt. Az említett egyéb hibákról maga a gép 
tájékoztat a képernyőn vagy a perifériák a jelzőlámpáik által. A képernyőn a hiba megnevezése, 
illetve kódszáma jelenik meg. Értelmezéséhez a gépkönyvek végén elhelyezett hibajegyzék 
nyújt segítséget. 

A hibakeresés egyik eszköze a munkaközi PRINT, ami képernyőre viszi a program para- 
méterek változásait (a kész programból töröljük). Sokan kedvelik a TRON-—-TROFF utasítás- 
párt, melyek hatására az összefüggő utasítások címkéi jelennek meg a képernyőn. Léteznek 
hiba-csapdák amiket a programba állítunk be. 

Tisztelt Kolléga! Ha valahol megakad és nem segíti ki sem a gépkönyv, sem az ajánlott 
irodalom, írjon egy lapot (IX., Dimitrov tér 8.) és válaszolni fogok. 

Akár fiatal, akár idős embert üdvözölhetek Önben, számítok kitartására, hogy végigcsinálja. 


Üdvözlettel 


AA 


Utóirat: 


Köszönettel tartozom mindazoknak, akik a mű létrehozásában közreműködtek és erényeit 
gyarapították. A könyv gyengeségei a szerzőt terhelik. 
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ABC: 1] OK; 
[2] A POWER feliratú gomb benyomása a kazettás egység hátoldalán £ 
[3] OK 
14] A ?-et a PRINT szó helyettesíti; A hatványozás jelett pl. 3r2f A gép 
munkára kész, ha ABC-80 jelenik meg a képernyőn £ 
HTZ: 1 J OK 
2]1o-1 (NEKITE): 
3 ] OK; 
[4] OKf A ?-et a PRINT szó is helyettesítheti § 
TEXAS: 1 J OKK 
2]ON; § leütése ebben a sorrendben; 
[3] OKE 
[4] SPRINT (1030) [ENTER ]K Az aritmetikai művelet zárójelbe kerül; 
A ?-et a PRINT szó helyettesíti A hatványozás jele A 3 
PRIMO:  [1]OKE 
[2] ON gomb lenyomása a tápegységeni I PRIMO BASIC SYSTEM "84,1 IE 
L3] OK; 
[4] leütésekor nagy, ismételt leütésekor kisbetűkre vált a gépi 
/ TV COM: JIT]ÓKE 
e [2] ON gomb lenyomása a tápegységenf I TV COMPUTER v I [A] § 
[3 LOK: 
4 [SHIFT] LOCK ] leütésekor nagy, leütésekor kisbetűkre vált 
a gép há A ?-et a PRINT szó helyettesítik IRJON KISBETUVEL!Z A hatványo- 
zás jele ki 
VT—16: Törölve; [2] tegye be a baloldali (A) FLOPPY-ba az "UDOS 2.00" című 
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operációs lemezt és [FIJÉ I DATUM? HO/N/EV : 512/04/86 III ENTER JÉ 
I IDOPONT? O : P : MP:512:15:30 1 (ENTER ÍZ Tegye az (A) FLOPPY- 
ba a "VT BASIC 1.007 c lemezt és hívja a BASIC-et I A : V3 VT BASIC I 


ENTER JI F1-—FI0 gombok értéke a kép alján [3] OKÉ[4] Akétjeles 
gombok felső jele -el aktiválhatóf A hatványozás jele a § 


1. AZ ALAPGÉP KEZELÉSE ÉS PROGRAMOZÁSA 


2 Kapcsolja be a számítógépet: 


PON/OFF 2 ON 


1 Kapcsolja be a televízió 36. csatornáját: ] 


kk KCOMMODORE 64 BASIC V2§87 
64 K RAM SYSTEM 38911 BASIC BYTES FREE 


READY 


[3] Ürítse ki a számítógép memóriáit: 
hi 23NEW 


AA 


001 A gép, mint kalkulátor. 


e] 


ül 5?10-30 oO 
he 5? 15—13 HA 
hi 59553 Esni 
x 5?20/5 b 
x SZ TZA g 


RETURN 


— A számítógép használatát a memória üríté- 
kezdjük. Lekopogjuk a NEW (új) 
szót és lenyomjuk a RETURN gombot. 


sével 


A READY (kész) szó a művelet végét 


jelzi. 


Kopogja le az alábbi sorokat és nyomja le a RETURN gombot: 


A gyakorlat OK£ A memóriát és a képernyőt a RESET gomb (a gép hátoldalán 
balkézről) benyomásával törölhetjük £ A gép nem érzékeny a szóközre 


A gyakorlat utolsó 3 feladata az alábbi formában OKg$ 5 PRINT "2", "3" 


ENTER [7 PRINT "727, "3" ENTER Í$ 3PRINT "2" 8. 73"( ENTER Ig. 


A gyakorlat OKgX A képernyőt a RESET gomb (a gép hátoldalán jobbkézre) 


benyomásával törölhetjükg A gép a szóközre nem érzékeny 


A gyakorlat az utolsót leszámítva OKg II tt: NOT UNDERSTOOD I (Nem 
értem)g A képernyőt a RESET billentyű (jobboldalon alul) felnyomásával 
törölhetjük£ A gomb (hátul jobbra) színesre vált, ha a TV színesre van 


ABC: 
HTZ: 2253 I NEW LINE[ 2 3£ 
TEXAS: 

A gép érzékeny a szóközrek 
PRIMO: 
TV COM: 

állítva k 
VT-16: 


A gyakorlat OKZ A gép érzékeny a szóközreg Próbálja ki az alábbiakat: 


F9 ] 30FF [ ENTER E[F9] 50N [ENTER FK 


A VT—-16 a betöltött operációs rendszertől függően 8, illetve 16 bites rendszer- 
ben dolgozik (UDOS : 16 bit -es r), vagyis 8, illetve 16 bit alkot egy magasabb 


tároló egységet £ 


002 


AA 


Gyakoroljon: 


TETT ST 2-3—447—1 


x 5? (35125) / (244) 
új 5? (3525) / 24 
x 5? 35425/254 
x 5? (544) t(7—2) 
x 5? (514) £7—2 
x 5? 5414 7-2 

x 5? 54(47—2) 
x 52? (243) 1 2/5-4 
x 5? 2-3 1 2/(514) 
x 5? 2;3 

k 592, 

x 5? 3 


A gép, mint robot. 


— A számtani műveletek a ? leütésével indít- 
hatók és a RETURN gomb lenyomását köve- 
tően megjelenik a végeredmény. A számtan- 
ban szokásos műveleti jeleket a gép csak 
részben fogadja el. Számára a "a szorzás, 
a / az osztás és a f a hatványozás jele. 
A számok írásánál figyeljünk a Ó és az 1-re, 
nehogy az O, illetve L betűkkel helyette- 
sítsük (ezért írjuk a nullát áthúzva: ÓÓ), 

. valamint a tizedesvesszőre, amit ponttal 


kell jelölni. 


RET N7 II 
110 I 
134 [ 
151.5 [ 
I 45 I 
RET 161 I 
131 [ 
131 [ 
I 9 l 
RET I 3 [ 
123 I 
RET I 2 3 1 
RET 123 I 


Utasítsa a számítógépet, hogy írja ki a képernyőre az Ön nevét: 
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ABC: SIÓ READA ÖZ 53ÓPRINTA X£ A nap-jel ( XI ) szöveg azono- 
sítására teszi alkalmassá az A numerikus változót £ Belső nyelvtana szerint egy 
adat — egy szó pl. KISILONA. Ezt a 3220 DATA 7KIS ILONA" védi kif 


HTZ: 4 ] Az utasítások címkéit az AUTO [ NEW LINE ! parancs rendre generáljai 
Kilépés a ! BREAK ! NEW LINE / leütésével történik A gép szóközre nem érzé- 
keny pl. 310 READA$ — 510 READ A$k 


TEXAS: Az utasítások címkéit a 2NUM10 parancs rendre generálja. 
Kilépés az [ FCTN[4 [-elf A szóköz fontos pl. 210 READ A$3 


PRIMO: Az utasítások címkéit az PAUTO parancs rendre generálja X 
Kilépés a -val Próbálja ki az 3AUTO 10, 20 parancsot § 


TV COM: OKZ Elütés esetén aBOTKORMÁNY balra dütésével léphet vissza és felül 
írja a hibás jelet. A botkormány balra, jobbra, le és fel képes a kurzort mozgatni £ 
OK F Szóközre nem érzékeny a gépi 


VT—-16: Az utasítások címkéit a 32AUTO parancs rendre generálja 
Kilépés Í CTRLÍC ]-velg Próbálja ki az PAUTO 10, 20 parancsot 


A 5RUN helyettesíthető az celt 


23109 READ AS 
520 DATA KIS ILONA 
530 PRINT AS 


540 END 
AA 
§ 2RUN 
KIS ILONA 
j READY j 
AA 


CRETURN] 


— A gép megjegyezte az Ön utasítás sorozatát 


és végrehajtási parancsra vár: 


RET 


— A négy címkézett utasítás programot alkot. 


Egyező címke a programban nem szerepel- 
het, mert a később lekopogott felülírja 
a korábbit. A program BASIC nyelven 
íródik. Neve a "BEGINNERS" ALL PUR- 
POSE SYMBOLIC INSTRUCTION CODE" " 
kezdő-betűiből származik. Jelkészlete az 
angol nyelvhez kötődik. Programunkban 
kulcsszavak: READ (olvas), DATA (adat), 
PRINT (nyomtat), END (vége), változó: A$ 
és adat: KIS ILONA szerepelnek. Az A 
változó valós számokat, a $ jellel kiegészít- 
ve szövegeket (string) azonosíthat. A prog- 
ram végrehajtását a RUN (fut) parancs 
indítja el. Az A$ változóhoz hozzárendeli 
a DATA készletét (A$ - KIS ILONA), majd 
képernyőre írja A$ értékét. A programok 
END-el zárulnak. 


! Kezdők minden igényét kielégítő, szimbólikus utasítás gyűjtemény. 


19 


ABC: 


5NEW parancsot a RESET gomb helyettesítik Beékelt data utasítást nem 
fogad ela gép. Megoldás: f1Ó READA XI :PRINTA OF 

520 DATA KIS ILONA : ENDÍ[6] 2 TARTÓSAN NYOMJA LE ALRET] 
GOMBOTÁ[7] 530 PRINT AZ 


HTZ: 


TEXAS: 


PRIMO: 


OK; 


L5] 
[61 A képernyőt a törli X CLEAR (tiszta) £ 
[éz] 


OK; 


A TI BASIC-ban a program nem tömöríthető; 

A képernyőt a xCALL CLEAR paranccsal töröljük £ CALL (hiv); 
EAR (tiszta) 

[7] 530 PRINT Ag 


a 
s 


5] OK£ Az utasításhossz C5sorg 


[6 ]LCLS Ik 2LIST és tartós (RET lz 
[7] OK? Ha rosszul lát próbálja ki a 32NEW : PRINT CHR$(2) 


parancsot 


TV COM: 


VT-16: 
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OKZ Az utasításhossz £ 8 sor£ Próbálja ki a GRAPHICS 2 pa- 
rancsot. Ezesetben 4 képernyő hossz a határ; Ha rosszul lát próbálja ki a 


SGRAPHICS16 parancsotf A SGRAPHICS4 alapállásba 
viszi [6] 2 CLS[ RET]E [7] 530 PRINT A? 


[5] OK Xg Az utasításhossz 3 sor; 
[6] sets CENT 2 [FITENT]: 
OK 


003 


[e] 


Irja fel a La] programot egyetlen utasítás sorozatba, majd aktiválja: 


x SNEW 
y 510 READ AS : DATA KIS ILONA : PRINT A$ : END 
§ 5RUN 


AA — Több utasítást egy címke alá vonhatunk 
kettősponttal elválasztva, a sorrend meg- 
tartása mellett. Az  utasítás-sor hossza 


legfeljebb 2 képernyő-sor lehet. 


A ) CLRJHOME ! SHIFT ! gombok és a LIST utasítás használata. 


Törölje a képernyőről az programot, majd hívja elő ismét: 


PÜSSE LE EGYIDEJÜLEG A [CLR/HOME] és GOM- 


BOKAT 


§ DLIST 


Irjon fel egy számot: 


x SNEW 
510 READ A RET 
520 DATA 125 
530? A 
540)END 

x 5RUN RET 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT—-16: 


22 


510 READ A : PRINT A § 520 DATA 1.25E2 : END £ 


[9] oké 


D5AUTO 104 OK; 
19] A hátlapon álló / VIDEO CUT Í gombot benyomva a képernyő 32 karak- 


tert fogad egy sorba, a gép pedig 64 karaktert ír. A ] PAGE Í lenyomása a másik 
32 karaktert láttatja £ 


Egy címke — egy utasítás, így kopogja le JNUM ID bekezdéssel 


[9] ok: 


[8] OK; 


[9] OK f Ha jobban kedveli a fehér alapon fekete képeta NEW után adja a 
SPRINT CHR$(3) utasítást: Szemkimélő a x$PRINT CHRS$(4),. 


CHR$(2) után dolgozni; 


[8] ok: 
[9] OKÉ 


004 


lel 


AA — A PRINT kulcsszó helyett kérdőjelet is íÍr- 


hatunk. 
Normál alakú számok használata. 


Tömörítse a programot 2 címke alá és a számot normál alakban adja meg: 


x 2NEW 

DIÓ READ A : DATA 1.25E2 
! 520 ? A : END 
hi 2:RUN 


AA 125 - 1,25.10?, amit 1.25E2 alakban fogad 
el a gép. Minden tizedes szám átírható 
ilyen alakra, Pl. —0,0056 - —5,6.107, 
innen —5.6E—3 adódik. 


A FOR-NEXT ciklus utasítás alkalmazása. 


Irjon fel 7 valós számot egymásutáni beolvasással: 


K 2NEW 
510 FOR I-1 T0 7 
520 READ A 
530Ó DATA 4, 5.2, 3.85, 2E3, —4.15, —2E4, —3E—1 
5D4ÓPRINT A; 
5DSÓNEXTI 
560 END 
8 2RUN 
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ABC: 


HTZ: 


10] OKg Egy utasítás £ 3 képernyő sort (3"40 karakter) tölthet ki 
11] OKX Hag helyett XÍ szerepelne, string — számokkal dolgoznánk. 


Ezek memorizálása karakterenként történik £ 


10 ] OK$ Nyomja ki a "VIDEO CUT" gombot. /. képernyő most 64 karaktert 
fogad. A PAGE gombnak elesik a funkciója g 
11 ] OK: Ha 2 helyett 3 szerepelne, "dupla pontosságú" (2 7 jegy) számokkal 


dolgoznánk 


TEXAS: 


PRIMO: 


TV COM: 


10 ] Van "EXTENDED BASIC" kazettája? Kapcsolja a géphez2t[1 ] ; 
IREADY IX Ekkor 510 FOR I-1 TO 7 : : READ Bf 536 PRINT B : : 
NEXT I : : ENDÉ 
[11] B9-ot a gép nem tudja kezelni X 


? A továbbiakban EXTENDED BASIC-et feltételezünk! 


[10] OKg 


11 ] OK; Próbálja meg a 9 helyett a 3t jelet szerepeltetni 


[10] OK; 


[11] Csak valós típusú számokkal dolgozhatunk £ 


VT-16: 


10] OKk 
11 ] OKX Próbálja meg a 2 jel helyett a 25 DEFINT B utasítást alkalmazni X 
Próbálja meg a 7-ot $ jellel helyettesíteni, illetve 25 DEFDBL B utasítással élni gk 


AA 


— A FOR-NEXT utasításpár a közrefogott 


utasítások ismételt végrehajtását biztosítja. 
Az egyszeri végrehajtást ciklusnak nevezzük. 
A ciklusok számát a FOR-—-TO utasítás 
deklarálja. A ciklusváltozó (ID bármely 
betű lehet. A változó kezdő és végértékét 
(157) megadjuk. Léptetését a NEXT oldja 
meg. A lépéshossz 41, ha mást nem adunk 
meg. (Lásd később). A gép munkarendjét 
a gráf szemlélteti. Programunk A numerikus 
változója eszerint 7-szer vált értéket: A-4; 


. . . 3A5—3E-I. 


Tömörítse a [9] programot 3 címke alá: 


2NEW 


5D1ÓFORI-I TO 7: READ B 
520 DATA 4,5.2,3.85,2E3,—4.15,—2E4,—3E—1 


530 ? B, : NEXT I : END 


2RUN 


Ha van kazettás egysége, előre lapozhat az programhoz!!! 


Módosítsa a 


10 ! programot, hogy B egész típusú változó legyen: 


5D1ÓFORI-1 TO 7 : READ B? 


530? B9 : NEXT I : END 


2RUN 


tő 


AA 


— A numerikus változót követő 9-jel egész 


(integer) értékek felvételét biztosítja. Ha 
B90-ot valós (real) számmal azonosítanánk, 
csak egészértékét őrizné meg (pl. A-3.25; 
A9p-3) . 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT-16: 


KR RK 


13 ] OK 


[12] ok 


xx EK 


OK 


[TE] ok 
HET 


OK : 
OK 3 DIM A(11) 12 elemű tömböt deklarál a 0,1 ,..., 11 indexszel 
NEM vezet hibajelre, ha a 0 indexet nem használjuk fel FOR I-1 TO 11) £ 


[12] ok :; 
[13] OK : 


55 DIM A(7) 3 A tömb méretét mindig meg kell adni (DIM) f A DIM 
AC(7) 8 elemű tömböt dekralál Ó, 1 ,..., 7 indexszelf NEM vezet hibajelre, ha 
a 0 indexet nem használjuk felx[13] OK § 


[7] ok 
(31 ok 


KR FX 


A 9-jelet a programban a változó ismételt 
előfordulása esetén is ki kell írni. Az egész 
típusú számok tárolására a gép meghatá- 
rozott méretű (2B) memória elemet biz- 
tosít. Eszerint a tárolható legnagyobb 
egésztípusú szám 32767. Egy valóstípusú 
szám férőhelye 2,5-szer nagyobb (5B). 


007 Az egyváltozós tömb használata. A DIM utasítás. 


Olvasson be 7 számot egy numerikus tömbbe? : 


ai 5NEW 
DIÓFORI-1 TO 7 
520 READ A (D 
530 DATA 350,800,4.5E2,53E2, —60, —850, 1E4 
540 PRINT I, A (D 
55ÓNEXTI 
560 END 
x 5SRUN Oofto 


AA — Az A(ID) numerikus változót tömbváltozó- 
nak, benne az I-t indexnek nevezzük. [ a 
természetes számok véges sorozata. Az 
azonosítás rendezett (pl. A(1)-350, A(2)-8 hú, 

. ., AC(7)9-1E4) és ciklussal oldható meg. 
A ciklusok száma legfeljebb IÓlehet? 


Módosítsa a programot pl. 11 szám beolvasására. Kérjen listát a módosí- 


tott programról. Válasszon 11 helyett más számot és kísérletezzen: 


3 Az egyváltozós tömb vektornak felel meg műveleteiben. dr. Halmai Erzsébet: Lineáris algebra. Tk. Budapest 1979. 


27 


ABC: 


HTZ: 


TEXAS: 


PRIMO: 


550 NEXTI:ENDÍ A NEXT indexe NEM hagyható eli 


Kapcsolja be a gép "EXTENDED BASIC" -jét. PGNEW £ 5 SYSTEMÉ 

? / 12288 [NL [za gépvillogó kurzor -ral válaszol 4 A továbbiakban 
EXTENDED BASIC-kel dolgozunk£ A gép bekapcsolásakor mindig gondoljon 
rák OK; 


14] 550 NEXTI ::ENDZ A NEXT indexe NEM hagyható eli 


OK: 


TV COM: OK £ 


VT-16: 
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[6] ox: 


55 DIM A(11) 

SIÓDFORI-ITOII 

531 DATA 80, 60, 40, 250 
x SLIST RET 
x SRUN ofto 


AA — Ha 10-nél több eleme van a tömbnek, ezt 
DIM utasításban deklarálni kell. A kész 
programba beszúrhatunk új utasításokat. 
A DIM utasítás helyét úgy választjuk ki, 
hogy a program futása során csak egyszer 
kerüljön végrehajtásra és megelőzze a tömb 
felhasználását. 

— Egy programban több DATA utasítást is 
megadhatunk. Felhasználásuk rendjét cím- 
kéik rendje adja meg. A LIST (lista) végre- 
hajtási parancs, melyre a gép rendezett 


programot ír ki a képernyőre. 


Irjon fel 4 számpárt egy oszlopba: 


x SNEW 
510 FOR I-1 TO 4 
520 READ AI, A2 
530 DATA 10, 9, 8, 7, 6, 5, 4, 3, 2 
540 PRINT AI; A2 
550 NEXT : END 

x 5SRUN OoOfto 


AA — Az Al, . . ., A9-et indexelt változóknak 
nevezzük. AI és A(I) abban térnek el, 
hogy I -I, . . ., 9, míg I-1, . . ., N értékeket 
vehet fel. A kiírás formáját jelek biztosít- 
ják: A ; szorosan melléírást (Al; A2), a 
jelhiány (A2 után) új sort biztosít ciklu- 


sonként. 
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15] 565 PRINTZ Elválasztó sort generál az üres PRINT az Iciklusok között. 


Enélkül 3 oszlopba rendezné a képernyőn az adatokat (13 karakter térközzeD X 


565 PRINT; Elválasztó sort generál az üres PRINT az I ciklusok között kg 
Általában OK, most nem, mert a PRINT után álló , 4 oszlopba rendezné 


565 PRINT; Elválasztó sort generál az I ciklusok között. Enélkül 3 osz- 
lopba rendezné a gép az adatokat a képernyőn (16 karakter térköz) X 


ABC: 
16 ] 560 NEXT J, I nem használható 
HTZ: 
az adatokat a képernyőn (1 6. karakter térköz) É 
TEXAS: OK: 
NEXTJ:: NEXTIZ A NEXT NEM vonható összek 
PRIMO: 
Általában OK, most 565 PRINT miatt NEM £ 
TV COM: 55 DIM A(4.2)X 550 PRINT AC, D),, 
OK: 
VT-16: 
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565 PRINT; Elválasztó sort generál az I ciklusok közöttz Csatolja a prog- 
ramhoz az 55DEFDBL A utasítás és figyelje meg a változást (a nyolc vagy annál 
többjegyű számokat nem kerekíti a gép?) z 

Általában OK, most 565 miatt NEM 2 


008 A kétdimenziós tömb használata. A beágyazott ciklus. 


15 Olvasson be számokat egy 4x2-es tömbbe" . 


§ 23NEW 

DIÓ FOR I-1 TO 4 
520 FORJ-1 TO 2 
530ÓREAD A (I, J) 


550 PRINT A (I, J), 
560 NEXTJ 

570 NEXTI : END 
Hi SRUN ofto 


AA 


Módosítsa -öt az alábbi módon: 


540 DATA —3, 2.5, —5E6, 0.2, .05 , 20000. 
545 DATA—256318.256,1E—9 


— MxN-es tömbnek az M sorból és N oszlop- 


ból álló számnégyszöget nevezzük. Két- 
indexes tömbről van szó. Általános ele- 
mét A (I, J) jelöli, ahol I-1, . . ., M és 
J51, . . ., N értékeket vehet fel. Sorfolytonos 
beolvasás esetén [-1-hez J-l, . . ., N; I-2-höz 
J-1, . . ., N stb. tartozik. Ezt fejezi ki a 
munkagráfon a beágyazott ciklus. Eszerint 
A(1,1) -—3, A(I,2) - 2.5, A(2,1) - —5E6 
stb. hozzárendelés történik. Ha felcserél- 
jük a FOR-NEXT utasítások indexeit, 
akkor oszlopfolytonos bolvásásrá kerül 


sor (FOR J-, FOR I-, NEXT I, NEXT J. 


560 NEXT J,I 
570 END 
k 5RUN Oato 


$A kétváltozós tömb mátrixnak felel meg műveleteiben. dr. Halmi Erzsébet : Lineáris algebra. TK. Bp. 1979. 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT-—-16: 
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TETT SZOVEGET , 


7] 
8] 
[19] 


19 


17 


19 


éllel 


OK 

Az üres STRING legalább 1 karakter " " hosszút OK: 

Az adatokat a gép összevonja, ezért 330 DATA "AZ IDEZOJELBE 
" " KARAKTER KONSTANSNAK", " NEVEZZUK" 


OK: 
Az üres $TRING legalább 1 karakter " " hosszúg OK k 
OK: 


Idézőjel a PP gomb homlokán található és ( FCTNÍP ]-vel aktiválható 
Az üres STRING legalább I karakter " " hosszúd 

OK ; 

OK k 

Az üres STRING legalább 1 karakter helyet " " tartalmazá OK £ 

OK X 

OK 

55 DIM A$(7)$ Az üres STRING " "legalább I karakter hosszú £ 

55 DIM A$(B)r27f A karakter konstanst 518 karakter esetén dimenzi- 


onáljuk ("H) X 


77] 
(18) 
[57] 


OK; 
Az üres STRING 
OK 


999 


hossza legalább 1 karakterá OK § 


17 Irassa ki az alábbi mondatot: az idézőjelbe tett szöveget karakter konstansnak 


nevezzük: 
§ 2NEW 
510 PRINT "AZ IDEZOJELBE TETT SZOVEGET KARAKTER 
KONSTANSNAK NEVEZZUK" 
520 END 
§ 3RUN 
009 Az egydimenziós karakter tömb használata. 


18 Oldja meg a feladatot szavankénti beolvasással: 


hi 2NEW 
5DIÓFORI-1TO 7 
y 520 READ A$ (D 
v 530 DATA Az, IDEZOJELBE, TETT, SZOVEGET, 
KARAKTER, KONSTANSNAK, NEVEZZUK 
v 540 PRINT A$(D;7"" ; 
5S5ÓNEXTI 
v 56ÓEND 


hd 


SRUN Oofto 


AA — A karakter tömb számok helyett szöveg- 
részekkel dolgozik. A DATA sorokban a 
vesszők jelölik ki a változók , értékeit", 


399 


Az üres STRING, szóközt biztosít a 


kiírásban. 


Módosítsa a programot arra az esetre, ha a szöveget három részre daraboljuk: 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT—-16: 


34 


A karakter konstans max. 3 képernyősort foglalhat, el, ha definiáljuk, de 
eredménye akár 6 sor is lehet £ 
OK Az egyesítés string számok (pl.A KK -"30":B XX - 76097) 


esetén is érvényes § 


A karakter konstans max. 4 képernyő sor 64 oszlopos üzem esetén 
(VIDEO CUT ki); 


OK? 


A krarakter konstans max. 4 képernyő sor 
jelz 8; " " helyett K$-" "; így 520 PRINT A$£KS8B$ 


A karakter konstans max. 5 képernyő sor; 


OK? Azegyesítés string számok (pl. A$-"30" : B8-"600") esetében is 
elvégezhető X 


OK: 
520 PRINTA$£" "8.B$i 


ok: 


21/A] OKX Egészítse ki a programot 55 DEFSTR A, B-vel és a dollár jeleket 
törölje a 210 és 520 utasításokból. Az 55 utasítás deklarálja az egész program 
számára a változók string jellegétk 


BH B 


5DI1ÓFOR I-1 TO 3 
530 DATA AZ IDEZOJELBE TETT SZOVEGET, KARAKTER 
KONSTANSNAK, NEVEZZUK 
ki 5RUN OIOo 


A karakter konstans alkalmazása. 


Adjon értéket egy karakter változónak és írassa ki tartalmát: 


x SNEW 
510 A$- "A TUDAS" 
520 PRINT A$ : END 
x 5SRUN Oolto 


fAYAN — BASIC jelekből idézőjelbe szerkesztett ka- 
rakter sorozatot karakter konstansnak ne- 
vezzük. Ilyen konstans karakter változó- 
val azonosítható. A konstans hossza 2 kép- 


sorig terjedhet. 


Adjon össze karakter konstansokat: 


/A 510 A$-"A TUDAS":B$ -" HATALOM" 
520 PRINT A$-" "5B$ : END 
ki 5SRUN Oofto 
/B 510 A$-7A TUDAS"7 
520 PRINT A$:- " HATALOM" : END 
hi 5SRUN Otto 
AA — Karakter konstansok összeadása értelmes 


mondatok szerkesztésére és string-ek 


bővítésére használható fel. 


35 


ABC: 


HTZ: 


OK A Próbálja meg az alábbi módosítással! 

SIDA A z2 BO - 6 

5320C KC -ADDOK(AG BG 0:DX-SUBO(BXNG,AX, 
1):EXC-MULÓ(AX BO ,D:FX-DVO(ASK,BX, 
6)z 330PRINTCW, DO, EX, F 0323] oky [24] OKE 


22] OK; 
23 ] OK; 
24 ] OKZ 


TEXAS: 


TV COM: 


VT-16: 


PRIMO: 4 


22] OK; 
23 ] OK; Próbálja ki a 3225 PRINT AMB, BM, A MOD B, B MOD A 
utasítást isf 


24] OKi 
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012 


24 


Számok aritmetikája. Értékadás közvetlenül és LET-tel. 


Adjon értéket az A és B változóknak. Számítsa ki az AB, A—B, A-B, AB számértéket: 


hi SNEW 
510 A-2 : B-6 
520 C-ArB : D-A—B : E-A B : F-A/B : G-A1B 
530 PRINT C, D, E, F, G : END 

ki 5RUN OoOfWo 


AA — Az A-2 (vagy LET A-2) értékadó utasí- 
tá, a READ utasítást helyettesíti. Az 
aritmetikai műveletek eredményeit külön 


változókkal (C, D, E, ...) azonosíthatjuk. 
Műveletek összevonása. Algebrai kifejezések. 


Oldja meg a feladatot az eredmény azonosítók elhagyásával: 


520 PRINT A-B, A—B, A"B, A/B, AtB 
530 END 
x 5RUN otto 


AA — A PRINT alá aritmetikai műveletek is 
bevihetők. 


Számítsa ki az (5.8-2,3? )? : (53 —4.6,1) kifejezés értékét: 


hi SNEW 

510 A-(5"812.312) 13((513—46.1) 

520 PRINT"A KIFEJEZES ERTEKE-" ; A:END 
. 5SRUN otto 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT—-16: 
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25] OKX A módosítás menete: 2EDI0 ( RET Jt 


lenyomásával KURZOR az - felettg 296 

[2] lenyomásával KURZOR az utasítás végéig futg (RET [/ 5ED 20 
hasonlóanf 

[26] OK; 


25 ] A módosítás menete: 2EDIT10 [NL JE Lécbillenytű leütések; 
KURZOR az - felett 5l$ 57 [NL]E 5EDIT20[NLIK LECB; 
KURZOR a : felett; 5lz 59 [D.T 

26] OKZ 


[8] 


2 A gép csak a valós számokat ismeri. A programot lépje át, vagy írja át az 
alábbiak szerint: 
DID A -(5"8-2.3 5 2) 5 3/(5 , 3—4"t6.1) 
520 PRINT INT (A) : : END; 
[26] OK: 


25] OKZ A módosítás menete: 3EDIT10 ÍRET JE 

[2] lenyomásával a KURZOR az - feletti 290£ 

lenyomásával a KURZOR az utasítás végéig futf Í( RET ]z 5EDIT 20. 
hasonlóaná 

[26] OKg A ?-et PRINT-re váltja a gépi 


25 ] A módosítás menete: 2LIST10 [RET ]z A botkormánnyal a 
KURZORT az - fölé állítja, majd [INS]É  Leüti a jeletés ( RET [; 


Tartósan lenyomvaaz — INS gombot az üres pozíciók száma növekedik 


A módosítás menete: lenyomásával KURZOR a 510 sorig lépg 

VÉGR lenyomásával KURZOR az - jel alá állí leütése után 599 8 
leütésével KURZOR a 520 sorra lép és a fenti ismétlődiká Túlfutás esetén 
leütésével lépünk vissza. A javítandó utasítások LIST paranccsal állíthatók 


a képernyőre gk 


OK: 


Módosítsa a 


molást: 
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AA — A műveletek sorrendje: hatványozás, szor- 
zás, osztás, összevonás. Ez a rend érvényesül 
a zárójelen belül és zárójelek között is. 
Az egynemű műveletek rendje, balról jobb- 
ra, egyenként kerülnek végrehajtásra. A 
zárójelnek abszolút prioritása van. 
— Ha a numerikus változó (A) jellege eltér 
a számolt érték jellegétől, az érték kon- 
vertálódik (pl. A-5,262A99-5). 


programban egész jellegűre az A változót és ismételje meg a szá- 


510 A2-(5"842.312)13((513—4"6.1) 
520 PRINT "A KIFEJEZES ERTEKE-";A99:END 


2:RUN 


oto 


Számítsa ki az E(A:B? (C) (D-F—F? ) algebrai kifjezés értékét a [3, 7, 2, 4, 5] és a 
[6, 4, 4, 8, 9] pontokban: 


at 


4—4—4— 4 


2NEW 


DIÓ FOR P-1 TO 2 

520 READ A B.CD,F 

530 DATA 3, 7, 2, 4, 5, 6, 4, 4, 8, 9 
540 LET E(A "Bt2:C)XDtF—Ft2) 
550 ? "A KIFEJEZES ERTEKE-"; E 
560 NEXT P 

570 END 


23RUN 


oto 
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ABC: 27] OK; 
28 ] 3EDS50 [RET [IEKURZOR E-re (törlendő mögé) Z leüt £ 
KURZOR az utasítás végérej[ RET [4 Több karaktert többszörí leütésével 
törlünk, majd [/ Té 
HTZ: OK: 
SEDITSO[NL ÍZ KURZOR ;-reg [D] [NL]4 CLISTE 5RUN: 
DELETE-töröl. ( D ] minden leütése egy karakter törlését biztosítjag OK; 
TEXAS: OK; 
p50 [FCTNIX ÍZ Megjelenik az utasítás § 
P ( FCTNÍD [A KURZOR-t a vesszőre állítjuk Z 
7 [ FCTNIÍI] LENT [§ 
A ; elhagyása színtaktikai hibára vezet; 
PRIMO: 27] OK; 
28 ] 3EDITSO£ KURZOR a ; mögé; [5]: [2]E Ha a KURZOR túlszalad, 
akkor ( SHIFT leütése után az EDIT-álás ismételhető ; 
TVCOM: [27] OKi 
28 ) DLISTSOX Álljon a KURZOR-ral a ; mögé (A botkormányt használja), 
majd és [RET [IZ Tartósan lenyomva a gombot, az egész 
előzmény törlődik; ; NEM törölhető f 
VT—16: 27] OKk 


28 ] SLIST 50 [ENTIE I § ] leütésével KURZOR a: alá, majd[ DEL] és 


, vagy XEDITSÓ0 és ugyanaz, mint előbbé 
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013 


A RESTORE utasítás használata. 


Módosítsa a programot úgy, hogy ismételten az első pontot vegye vizsgálat 


alá: 


215 RESTORE 
" 2RUN 


Szöveg-szerkesztés. 


Törölje a program 550 utasításából a pontosvesszőt és futtassa a programot: 


jú 2LIST 50 


SÍSHIFTTCRTSR] : KURZOR AZ 50 CIMKERE. 
P[.CRSR ] : KURZOR A ; MÖGÉ. 


2] IINST/DEL 


RET 


PÍCRISR]: KURZOR A PROGRAM ALÁ. 


jú 23RUN 


AA 


— A LIST 50 utasításra a javítandó utasítás 


megjelenik a képernyőn. A SHIFT és CRTSR 
gombok egyidejű lenyomásakor a kurzor 
egy sorral fentebb ugrik, így elérhető a ja- 
vítandó sor. A CRSR gomb lenyomásakor a 
kurzor egy pozícióval jobbra lép, így elér- 
hető a javítandó jel, ha a kurzor-t a javí- 
tandó jel mögé állítjuk és az INST/DEL 
gombot lenyomjuk, akkor a javítandó jel 
törlődik. A törlés csak a RET gomb le- 
nyomásával memorizálódik. A kurzor a 
CRISR lenyomásával vihető le a program 
alá. Több jel törlését az utolsóval kezdjük. 


Másik megoldás: 
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ABC: INPUT után karakter konstans nem állhat£ 510 megoldása: 
55 PRINT "A PARAMETER ERTEKE" £ 
510 INPUT A; 


HTZ: 29 ] OK; 


TEXAS: 510 INPUT "A PARAMETER ERTEKE?" : A § 


PRIMO: OK: Próbálja ki az alábbi utasításokat [29 [-ben 
55 DEFINT B,C,D : DEFDBLE FG; 
25 DEFINTE, FG : DEFDBLB,C,D 
Az első esetben a B, C és D számok egész, az E, F, G számok pedig 27 jegy pon- 
tosak 4 


TV COM: INPUT után karakter konstans nem állhat 510 megoldása: 310 PRINT" 


A PARAMETER ERTEKE ? " : INPUT A: Próbálja ki a 319 INPUT PROMPT 
"A PARAMETER ERTEKE? " : A megoldást is £ 


VT-—16: OK: Próbálja ki az 55 DEFDBL G, illetve az 55 DEFDBL A-G utasítást £ 
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550 ? "A KIFEJEZES ERTEKE-" E 
§ 2RUN 


AA — Ez utóbbi csak egyszerű és rövid utasítások 


esetében ajánlható. 
Az INPUT utasítás használata. 


Irjon fel egy paraméterre hatványozási műveleteket, (pl. a? , /a, Vaz2 , a9 , a" , a 
stb.), és végezzen számításokat a-( értékek behívásával: 


ki 23NEW 
v 510 INPUT "A PARAMETER ERTEKE?" ; A 
y 520 B-At2 
y 530 C-ANI/2) 
v 540 D-AN(2/3) 
v 550 E-A10 
v 560 F-At(—3) 
v 570 G-At(—4/5) 
y 580 PRINT "A HATVÁNY-" ; B, C, D, E, F, G 
v 590 END 
ké 5RUN OWto 
AA — Az INPUT bemenetet jelent. A választott 
számot (A) a gép kérésére le kell kopogni. 
A kérést a képernyőn megjelenő szöveg (pl. 
A PARAMETER ERTEKE??), ennek hi- 
ányában egy kérdőjel közvetíti. A lekopogást 
a kérés sorában kezdjük el. Legyen A-494 
II A PARAMETER ERTEKE??400 I/ 
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ABC: OK: 


IERR 4 LINE 29 II A gép 0—66 hibakódokat ismeri. A 4 a NEM megen- 
gedett művelet jele ; 510 INPUT A, Bá 540 GOTO 5; A ciklusból 


leütése visz kik 


HTZ: [30] ok; 

[31] I? FCERROR IN 20 IX FC NEM megengedett műveletet jelez 
(—91a12k 

[32] ,, helyett , így 32 oszlopos képernyő esetén is látjuk az eredményt; 


TEXAS: [30] 510 AF 

131] IBAD ARGUMENT IN 29 I (hibás argumentum) f 

510 :A, BE 520 PRINT "KERULET", "TERULET" 3530 , A"B/2 4 
A képernyő ugyanis 28 oszlopos £ 


PRIMO: OK; 
IFCERRORIN 29 IX 
OK; A ciklusból a leütése visz kit 


TV COM: [30] OKZ 
[31] J "rk BAD ARGUMENT. 
20 PRINT A 52... 
[32 ] 510 PRINT "A BEFOGOK HOSSZA?" : INPUT A, B; 510 INPUT 
PROMPT "A BEFOGOK HOSSZA?" :A, B § 


VT-16: 30 J OK; 
31 ] I ILLEGAL FUNCTION CALLIN 20 IR CALL - hivg 


OK? 


Egyesítse a 


29 


programban a műveleti és kiírási fázisokat: 


2NEW 


510 INPUT "A PARAMETER ERTEKE?" ; A 
520 PRINT A12, AX(1/2), At(2/3), At0, At(—3), At(—4/5) 
53Ó END 


2RUN 


oto 


Ismételje meg a futtatást negatív értéket adva A-nak (pl. Az—4): 


II ? ILLEGAL OUANTITY ERROR IN 209 I! 


AA — A hibajel értelmetlen műveletre utal 4/—4). 


A GOTOx, STOP es CONT utasítások használata. 


Irjon alkalmazási programot két befogóval adott derékszögű háromszög kerület és te- 


rületének a kiszámítására: 


2NEW 


510 INPUT "A BEFOGOK HOSSZA?" ; A, B 


99 53, 


520 PRINT "KERULET",, TERULET" 
530 PRINT A:B((A12-B12)t(1/2),, A "B/2 
540 GOTO 10 

550 END 


2RUN 


oto 


A BEFOGOK HOSSZA ??3,4 
KERULET TERULET 


12 


6 


A BEFOGOK HOSSZA?? 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT-—-16: 


33] 5 leütése "futás" közben hatásos. Ha a gép adatra vár, akkor 
összeférhetetlen adat (most pl. string :) megadása vagy a leütése hatá- 


sosk 


[35] [BRK: 


133] 2 [erktlEsc h 


s [crRLIc Rh 


AA 


Állítsa le a program futását: 


2 [PTOPIRESTOREJ] 


AA 


— Egy input utasításban több paraméter is 


szerepelhet. Ezeket vesszővel kell elválasz- 
tani az utasításban és az értékadás lekopogác- , 
sánál is. Ha két kérdőjel jelenik meg a kép- 
ernyőn, a sor elején, akkor vagy hibásan gé- 
peltük az értéket, vagy kevesebb adatot 
gépeltünk, mint ahány paramétert dekla- 
ráltunk. A hiba ismételt értékadással korri- 
gálható. 

A GOTO a vezérlés-átadó utasítás. Hatására 
nem a soronlevő utasítást hajtja végre a 
gép, hanem az a sorszámú utasításra lép 
és onnan halad tovább, követve a sorszámok 


természetes rendjét. 


Ha a GOTO a címkéje nagyobb a-nál, 
akkor az a-val kezdődő program részlet a 
végtelenségig ismétlődne. Ezt, ha INPUT 
is van a program részletben, mindig a jelzett 
két gomb egyidejű lenyomásával állítjuk 


meg. 


Ha van lemezes egysége, előrelapozhat a programhoz!!! 


017 Az IF—THEN és a STOP utasítások használata. 


és egyik befogója adott: 


Irjon alkalmazási programot arra az esetre, amikor a derékszögű höromszög átfogója 
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ABC: 


TEXAS: 


PRIMO: 


TV COM: 


VT—-16: 
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560 STOP leállítja a futást, de a folytatásra nincs utasítás. ENDESTOP£ 


560 (RETT: 


OK; 


D1D:AX 520 :Cg 530 : : GOTO 10£ 540, "TERULET" f 550, 
(C52—...)á 560 BREAKZ DCONZ 


OK: 


5CONTINUE ÍRET [Akkor is alkalmazható, ha [ CTRLÍESC ] -vel 


állítjuk meg a futást és a program érintetlen marad, (NEM javítjuk, módosítjuk 
stb.§ 


OK; 


új 2NEW 


FT 510 INPUT "A BEFOGO HOSSZA?" ; A 
pw 526 INPUT "AZ ATFOGO HOSSZA?" ; C 
h-y 530 IF A3-C THEN PRINT "DEGENERALT 
HAROMSZÖG" : GOTO 16 
y 540 PRINT "KERULET", TERULET" 
y 550 PRINT A(Ct2—A12) f? (1/2) 4 C ,, (Ct2—A12) 1 (1/2)) ! (A/2) 
v 569 STOP 
570 GOTO 16 
58Ó END 
ii SRUN otto -[-d 
ai 5CONT RET 
AA — Egy INPUT utasításban eltérő , megneve- 


zéssel" két paraméter nem szerepelhet 
C10 és 20). 

— A program végrehajtási rendjét feltételek 
szabályozhatják. Ezeket relációkkal fejezzük 
ki: Z, S -, 2, 52, /. Ilyen relációk változók, 
konstansok és kifejezések értékei között 
állhatnak fenn5 (pl. A2C). A feltételt az IF 
vezeti be. Ha az IF-et követő reláció teljesül, 
akkor a THEN kulcsszót követő utasítás 
vagy utasítások, ellenkező esetben a soron- 
következő (40) kerül végrehajtásra. 

— A STOP megállítja a program futását. Az 
újraindítás a 3CONT parancs lekopogásá- 


val érhető el. 


5 Minden reláció logikai függvénynek felel meg, ami kétértékű: —1 , ha a reláció igaz (pl. 2 3) és ?, ha nem igaz (pL.22 3). 
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ABC: 


36 ] PRINT 5EAV NOT 3£ PRINT NUM XA (255)E5PRINT 7574 
NUM IG (255)E SPRINT VAL (NUM X(52))X LOG az e, LOG10 a 10 
alapú log. függvényf r-PIX -PRINTSGN (SIN(PD) pontatlan PRINT 
"A" CHR OG (10) "B7£ SPC funkció nincsg FRE és TI nem működik 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT-—16: 


[36] PALMA "2ALBA"C ALFA X A XOR logikai műveletet nem ismeri; 
TAB(35) "A" jobboldali képernyőn áll SPC ( ) funkcióval nem rendelkezik £ 
A PEEK fgy max. címe: 32767£ FRE(Ó) z MEM is működiké TI, TI$ nem 
értelmezett f 


"ALMA" "2"ALBA"C" ALFA"k LEFT$ helyett SEG$(7" ",1,3)É 
RIGHT$ helyett SEG$(7 7", LEN(? ")-—4,5)i MID$-SEG$E 
TAB(20) ; év. Vájá TAB(35); 79423 zi TAB(7); Mg 4 vál CHRX(13) pe? viz 7 Vé 


: "B7k A — — — alatt nem értelmezhetők ő 


XOR logikai műveletet nem ismeri g 1-PI; SPC funkciót nem ismeri 
PEEK (I), 132768, ha PRIMO—32-vel dolgozik § 


SPRINT ( KATI" 5 "VIRAG")i SPRINT CALMA?" C?ALBA?)t 
5PRINT(5-NOT3); LEFT$, RIGHT$, MID$ helyett egységes szeretelő utasítás: 
5A$ - "BOKRÉTA" : PRINT A$ (:3), A$(:4), A$(3.), A$(5), A$(2:3), A$(4:0), 
vagy XPPRINT "BOKRETA" (:3) stb. ASCSORDA rEPI: 

CHR$(13), CHR$(8) nem működikf SPC(4) ESTRING$ (4, "7" "? Já SPRINT 
FREE; TI nem értelmezetti VAL (752ALMA") nem működik iz 


36 ] r-3.1415£ A szóközökre érzékeny a gépg 


Végezze el az alábbi kísérleteket: 


5PRINT 223 


253 

"KATI 5"VIRAG" 
"ALMA"GC"ALBA" 
"ALMA?C"ALFA" 

2€3 AND 58 

2€3 AND 558 

203 OR 58 

253 OR 558 

223 XOR 58 

2X3 XOR 558 

5-NOT 3 

3-NOT 3 

—4-NOT 3 

NOT 5 
LEN("BOKRETA ") 
LENC"KRETA") 
LEFT$("BOKRETA",3) 
LEFT$("BOKRETA",4) 
RIGHTS("BOKRETA",5) 
RIGHTS( BOKRETA",3) 
MID$("BOKRETA",2,2) 
MID$(C BOKRETA",4,3) 
STR3$(255) 
5:STR$(255) 
"5"98TR9(255) 

ASCC A") 

ASCC1") 

f ASC(BOKRETA") 


5PRINT VALC" 52") 
VAL(STRX(52)) 
CHR$(D) 
CHRXC1) 

ABS (-8.6) 
EXP(2) 

TAB(2Ó) TA" 
TAB(35)7A" 
LOG (2.7) 
LOG(1b) 
SIN(r/2) 
SIN(90"r/180) 
SGN(-6) 
SGN(16) 
SGN(SIN(r)) 
TAN(r/4) 
TAPCHRS(13)7B 
"APCHR$(8) "B" 
"APSPC(4) "B? 
"APSPC(8B) "B" 
PEEK(53280) 
PEEK(53281) 
PEEK(6000b) 
FRE(Ú) 

FRE(1) 

TI 

TIS 

VALC 52ALMA") 
$ VALCS2AL25") 
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HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


04 
b. 


OK: vagy 529 (Fel: 


BT] ok: 
OK: 


OK: Futtassa KS10-el és próbálja meg 55 DEFINT A-—Z mellett KSI0-elf 
Mérje a futások időtartamát. § 


ok: 


A változó léptetése értékadással. Segédváltozók. 


Írjon alkalmazási programot a k! (k elemű permutaciókf száma) kiszámítására: 


§ 2NEW 


510 INPUT "AZ ELEMEK SZAMA ?"; K 


520 A-1 : N-1 
K7 530 A-APN : NEN:1 


ss 54 IF NEK THEN 30 


550 PRINT "K!-"; A 
560 END 


x 5RUN Ofto 


-[d 


AA 


229 
hő 2RUN 


AA 


— A K! az első K természetes szám szorzatával 
egyenlő. A természetes számokat az N 
segédváltozó szállítja az N-N:i1 értékadás 
útján (N új értéke egyenlő N régi 
értéke r 1), amíg a 240 teljesül. A már meg- 
kapott számok szorzatát az A segédváltozó- 
hoz rendeljük (A új értéke egyenlő régi 
értéke szer új N). A segédváltozók kezdő- 
értékét deklarálni kell (A-1; N-1), mert 
ellenkező esetben nullának számítanak. Az 
értékadás a változó bármely függvényére7 
támaszkodhat (pl. A-SIN (A) stb.) 


Törölje a programból a 520 utasításokat és futtassa ismét a programot: 


— Bármely K esetén nullát kap eredményül, 


mert a futás kezdetén A-ú N-f stb. 


6 dr Denkinger Géza: Valószínűség-számítás. TK. Budapest, 1978. 


" dr. Szép Jenő: Analízis. KIK. Budapest, 1972. 
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ABC: 53Ó LET Y -3"X"X2r X—1, ha negatív argumentum is előfordul, mert a 
gép 2-LOG(X) alapon hatványozk § 


[70] ox: 


HTZ: OK; 


OK: 


TEXAS: 39] OKE 


PRIMO: 39] OK; 


VT-16: 39] OK; 


kel 
kel 


A FOR-TO-—-STEP-NEXT utasítás használata. 


Irjon leképező (értéktáblázat készítő) programot adott halmaz és leképező függvény 


esetére Legyen x(—1, 0, 1, 2, 3, 4, 5); y-3x?r2x—1: 


Oldja meg a 


JA 


SNEW 
510 FORI-1TO7: READ X 
520 DATA -I, 0, 1, 2, 3, 4, 5 
530 LET Y-3rX122"X—I 
540 PRINT X; Y : NEXTI 
550 END 

SRUN oto -[d 


feladatot X léptetésével: 


SIDFOR X-—I TOSSTEP I 

520 RET 
540 PRINT X;Y : NEXT X 

SRUN otto -[d 


510 X-—1 

540 PRINT X; Y : X-X:1 
545 IF X.65 THEN 30 
5RUN Otto a 


AA — A FOR X-A TO B STEP L utasítás az 
IA, B] intervallum A, ArL, AF2L, ..., A:KL 

pontjait rendeli a ciklus-változóhoz. Így K 

számú ciklust generál a NEXT X közremű- 

ködésével. Ha L-1] a STEP ! el is hagyható. 

— A bemutatott megoldások bizonyítják a 


program alternációk lehetőségét. 


9.5 


41 ] OK; 


56 


ABC: 


TEXAS: 


PRIMO: 


TV COM: 


VT-16: 


[41] okt 


42 ] TARTÓSAN NYOMJA LE A GOMBOT § 


42 ) / CLEARÍBREAK ], ha SYSTEM / 12288-al dolgozik § 


S3ÖIFX:1-ŐTHEN 55$ 540 IF((X52—1)XX-1)) CG THEN 564 
550 PRINT "X-7; X,"Y-"; ((X42—DK(X:1)) A (1/2) : : GOTO 60£ 

555 PRINT "AZ OSZTO NULLA" : : GOTO 603 

556 PRINT "A GYOKALAP NEGATIV"; DCALL CLEAR; 


550 PRINT 7X-"; X, ((Xt2—DCXsDD)MI1/2) § 


5DCLSZ 
41 ] OKg 
42 ] DCLSE tartósan lenyomva? 


020 


AZ IF lánc alkalmazása. A logikai kifejezés. 


Készítsen értéktáblázatot az ya /5 - függvényhez az aSxSarh intervallum 1-h/10 
lépéshosszal adott pontjairól: 


5NEW 
516 INPUT "INTERVALLUM ADATOK" ; A, H 
520 FOR X-A TO A:H STEP H/10 
530 IF X:1-0 THEN PRINT "AZ OSZTO NULLA" : GOTO 69 
540 IF ((Xt2—1)((Xr1))--b THEN PRINT 
"A GYOKALAP NEGATIV" : GOTO 60 
550 PRINT 7X-"; X,, "Y-"; ((Xt2—1)K(X:1))X1/2) 
560 NEXT X : STOP 
570 GOTO 19 
580 END 
SRUN oato -[d 


AA — A FOR utasításban algebrai kifejezések 
(AH, H/10) is szerepelhetnek. A gép kiszá- 
mítja értéküket, ha a paramétereket rögzít- 
jük (A, H). 

— Az IF láncot akkor alkalmazzuk, ha egy- 
idejűleg több lehetőséget kell megvizsgálni 
és eltérnek a következtetések, (230, 540, 
550). Ha valamely lehetőség nem követ- 
kezik be, a soronkövetkező kerül vizsgálat 


alá. 


Törölje a képernyőt, majd kérjen listát a programból: 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


OK: 


Nullával való osztásra a gép ?/0 saját hibajelét jelzi ki. Igy 330 IF (X12—1) 
KX:1)) C0 THEN PRINT" A FUGGVENY NINCS ERTELMEZVE? : 
GOTO 603 


530 IF Xr1-0 OR ((X A 2—1)(X:1)) CÖ THEN 554 240 ( ENT [; 
555 PRINT "A FUGGVENY NINCS ERTELMEZVE"$ 556 [LENTI 


OK: A nullával való osztásra /d ERROR IN a jellel reagál a gép, ezért 
530-ból törölhetjük az Xr1-0 feltételt Z 


OK; A nullával való osztásra II $$$ CAN NOT DIVIDE BY 0 I jellel 
reagál a gépg 


VT—-16: 


58 


ok: 


021 


Vonja össze -ben az értelmezési problémák vizsgálatát: 


530 IF X:1-0 OR ((X12—1)(X:1))0 THEN: PRINT "A FUGGVENY 
NINCS ERTELMEZVE?" : GOTO 69 
540 RET 
k SRUN otto -[d 


VAVAN — Logikai függvények (relációk) között értel- 
mezhető a konjunkció (műveleti jele: AND), 
a diszkjunkció (műveleti jele: OR) és a 
negació (műveleti jele: NOT). R, AND R; 
csak akkor igaz, ha R, és R; is teljesül. 
R, OR R; igaz ha, legalább az egyik reláció 
teljesül. Not R akkor igaz, ha R nem telje- 
sül. 

— Az AND, OR és NOT műveletekkel össze- 
tett logikai függvény (logikai kifejezés) 
jön létre, ami szintén kétértékű: —1 (igaz) 
és Ó (nem igaz, hamis). A THEN kulcsszót 
a -l aktiválja, (részletesen a 2. számú 
mellékletben). 

— Esetünkben akár a nevező nulla, akár a 
tört negatív valamely x helyen, ott a függ- 


vény nincsen értelmezve. 


A SAR(X) függvény alkalmazása 


Irjon alkalmazási programot az ax?tbxrc-Ó egyenlet megoldására. Ellenőrzésként 


építse be a gyökök és együtthatók összefüggéseit: 
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ABC: 


SIÓPRINT?"AZ — "£ 515INPUTA, B, Ci? 


HTZ: 


TEXAS: 


SZÓLETD-BtB—4trAFCX SSÓ:GOTOIÓ A 
570 Törölve 


OK; 


[44] ok: 
[85] ok: 


510 : A, B, C$ 530 IF DD THEN 10£ 550 THEN 655 
560 PRINT "PONTATLAN MEGOLDAS? ; XI, X2 : : GOTO 703 
565 PRINT "XI-" ; XI, "X2-" ; X23 570 BREAK: 


OK: 


[4] OK: 
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PRIMO: 


TV COM: 


TV—-16: 


[5] or: 


OK: 
OK: A REM -vel helyettesíthető, ha a megjegyzést nem követi : és újabb 


utasítás a 


x 5NEW 

510 INPUT "AZ A, B, C EGYUTTHATOK ERTEKE?" ; A, B, C 

520 LET D-Bt2—4tArC 

530 IF DÖ THEN PRINT "NINCSEN VALOS GYOK": GOTO10 

540 X1—B:SRR(D)) 2? A) : X2-—B—SAR(D))K2"A) 

550 IF XI:X2-—B/A AND X1"X2-C/A THEN PRINT "X1-" XI, 
"X2-" X2 : GOTO 70 

560 PRINT "PONTATLAN MEGOLDÁS" XI, X2 

570 STOP 

580 GOTO 10 

590 END 

x SRUN oto -[d 


AA — A négyzetgyökvonás gyakorisága miatt be- 
építették a gépbe a /x függvényt, amely 
az SOR jellel aktiválható. A gyökalap (vál- 
tozó vagy kifejezés) mindig zárójelbe kerül. 

— Az 550 utasítás RI AND R2 típusú logikai 
kifejezésre épül. A megoldás akkor pontos, 
ha mindkét (XI-X2-—B:A ; XI-X2-C:A) 
összefüggést kielégíti. Egyéb esetben az XI 
és X2 közelítően pontos (esetleg hibás), 


ami a gépi kerekítések miatt gyakori. 


Építsen be értelmező címet a programba és futtassa újra: 


/A 25 REM A MASODFOKU EGYENLET MEGOLDASA 
s 2RUN 

/B 55 PRINT "A MASODFOKU EGYENLET MEGOLDASA" 
§ 2RUN 
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ABC: 


520 PRINT "A KOR SUGARA CM? " : INPUT Rf 550 A - A " PI/I1803 


5D7ÓI-R"FA :K1-I" R/2 : K2-(R " R/2) " (A—SIN(A)) x 590 : K1 -INT 


(100 § KI - .5)/100 : K2 - INT (100 " K2 6 .59/100£ 5110 PRINT 1 -" ; I, 
"zi st ; KI, ád S ; K2t 


HTZ: OK: 


TEXAS: 5129 BREAK f 


PRIMO: 550A- A PI/180£ 


TV COM: 550 AZA " P[/1803 


VT—16: OKÉ 
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AA — A REM megjegyzést jelent. A megjegyzés 
szövege tájékoztatja az alkalmazót, ha a 
program listáját felíratja. 

— A PRINT alatt közölt , megjegyzés" a prog- 
ram futásakor a képernyőn jelenik meg, 
tehát akkor is elénk kerül, ha alkalmazás 


előtt listát nem kérünk. 


Ha van printere, előre lapozhat a ] 96 ] programhoz!!! 


022 j A SIN(X) és INT(X) függvények használata. 


46 Írjon alkalmazási programot a kör alkotórészeinek (körív, körcikk, körszelet)? 


kéttizedes pontosságú kiszámítására: 


8 53NEW 

510 PRINT "AZ IVHOSSZ, A KORCIKK ES KORSZELET 
TERULETE" 

520 INPUT "A KOR SUGARA CM?" ; R 

530 INPUT "A KOZEPPONTI SZOG FOK?" ; A 

540 REM A SZOG ATSZAMITASA RADIANBA 

550 AzA"3.14/180 

560 REM IVHOSSZ ES TERULETEK 

5D7TO I-ER?A : KC-IFR/2 : KS-(R12/2)"(A—SIN(A)) 

580 REM KEREKITES KET TIZEDESRE 

590 I-INT(100 FI-:0.5)/109 : KC-INT(1Ó0"KC:.5)/100 : KS-INT(100" 
KSr.5)/100 

5100 REM EREDMENY KOZLES 

51106? "1-7; I, "KC-"; KC, "KS-"; KS 

5120 STOP ő 

5130 GOTO 10 

5140 END 

53RUN  ato [d N 


4—t 


vé REN 


§ gr. Farkas Miklós (szerk): Matermatikai Kislexikon. MK. Budapest, 1974. 
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ABC: 47] 590 PRINT "SZAMTANI ", "MERTANI "3 5103 PRINT "HARM", 
"KRONO" § 


HTZ: OK: 


TEXAS: 530 DIM (109); 
Dimenzióként változó nem szerepelhet, így megfelelően nagy, valós típusú, egész 


számot használunk f 


PRIMO: 590 PRINT "SZAMTANI ", "YMERTANI" $ 5103 PRINT "HARM", 
"KRONO" fg 


TV COM: OK: 


VT—16: OK: 
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AA — A REM utasítások duzzasztják a programot. 
Lekopogásuk elmradhat, mert a gép ezeket 
végrehajtás nélkül tárolja. 

— A SIN(A) radiánban adott szög sinusát 
adja meg. A" esetén A-A"tr/180. 

— Az INI(X) minden X-hez hozzárendeli a 
tőle balra eső legnagyobb egész számot 
(pl. INT(4,5)-4; INT(—4,5)-—5. Felhasznál- 
ható valós számok k tizedesre kerekítésére 
(pl. k-2 és x-2,5684; [X]- INT (1Ó127X-b.5) 
Md1t2-2,57). 


023 Tömbök INPUT-a. 
Irjon alkalmazási programot N számú adat számtani, mértani, harmónikus és kro- 


nológikus átlagainak 1 tizedes pontossággal való kiszámítására? : 


4—4—4—4 


4—4 


sült 4 


7 4—4— 4 


2NEW 


510 
520 
530 
535 
540 
550 
560 
570 
580 
590 


PRINT "ATLAGOK" 

INPUT "AZ ADATOK SZAMA ?"; N 

DIM D(N) 

A-Ú : G-1 : H-b : K-Ó 

FOR I-1 TON 

INPUT "ADJA A KOVETKEZO ADATOT";D(ID) 

AzA:D(1) : G-GYD(I) : H-HHD(D(—1) 

IF I-1 OR I-N THEN D(D-D(D/2 

K-K-D(I) : NEXT 

PRINT "SZAMTANI", "YMERTANI", "HARM", "KRONO" 


5100 PRNT INT (107A/N:.5)/10, INT (1$"GY(1/N):.5)/10, 
5105 PRINT INT(I1Ó"N/H:.5)/10, INT (10KAN-—1) 4 .5)/10 : END 
5SRUN otto old A 


9) Köves-Párniczky: Általános Staitzsika. KIK. Bp. 1973. 
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ABC: 48 ] 515 PRINT " 551 DATA. . . (KITOLTESE), MAJD : REM STOP ES RUN" 
: TTOPf RUN utasítás közbenső címkétől nem adható, így a STOP-ot magyarázat- 
tá degraláljuk a 3515-ben az adatok lekopogása után f 

HTZ: 5106 PRINT "551 NEW LINE" : END £ 

TEXAS: 5106 PRINT" 551 ENTER" : : END; 

PRIMO: OK; 

TV COM: OK § 

VT—16: 48 ] 53106 PRINT 7551 ENTER" : END; 
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[48] 


024 


AA 


— Egy programot , alkalmazási" jelzővel akkor 
illetünk, ha változó: helyzetben is alkal- 
mazható. Változhat pl. az adatok száma, 
értéke stb. a DIM utasítás parametrikusan 
is megadható: DIM D(N). Az N-et INPUT-tal 
adjuk meg a DIM utasítást megelőzően. 

— A tömbelemek behívása (INPUT D(1)) 
FOR-NEXT ciklussal történik. Az adatokat 
a gép kérésére, egyenként kopogjuk le 


ÍLRET ]eel Zárva. 


Módosítsa [47 ]-et adatbeolvasással való megoldásra: 


PTOROLJE 105-BOL AZ END-ET: 
515 PRINT "551 DATA . . . (KITOLTESE), MAJD 


53RUN 29" : STOP 


550 READ D(1) 
5106 PRINT "551 RET (TOROL)" : END 


ha 2RUN 


oto 


[E A 


AA 


— A 515 és 2106 parancsot ír a képernyőre, 
amit STOP után teljesítünk. Lekopogjuk 
az 2551 utasítást (adatokkal), majd 
RUN20-al folytatjuk a program futását. 
A program teljesítése után 5251-et töröljük 
a gép kérésére. Ha N nagy és az adatok 
egy DATA utasításba nem férnek be, akkor 
252 DATA, . . .259 DATA utasítások is 
megnyithatók, de törlésükről is gondos- 


kodni kell a futás végén. 


A GOSUB-—-RETURN uzasításpár használata. 


67 


ABC: 


HTZ: 


PRIMO: 


TV COM: 


68 


ok: 


[97] ox: 


580 PRINT "LANCV -" ; L (3), "BAZISV 7"; BO) £ 


[9] ox: 


OK § 


[49] oks 


1 49 Irjon alkalmazási programot n tagú idősor!" lánc és bázisviszonyszámainak a ki- 


számítására: 


§ 2NEW 

510 PRINT "VISZONYSZAMOK" 

520 INPUT "AZ IDOSOR HOSSZA?"; N 

530 DIM KN), L(N), B(N) 

540 FOR J-:I TON 

550 INPUT "KEREM A KÖVETKEZOT"; I(J) 
560 IF JC2 1 THEN GOSUB 70 

265 NEXT J : END 

527 LO) -I09/I10—1) : BO-IO)/K1) 

580 PRINT "LANCV-"L(J), "BAZISV-" B(J) 


4—4— 4 


590 RETURN 
t SRUN oto -ld a 
AA - A DIM utasítás a bevitt (I) és a keletkező 
(L, B) tömbökre is vonatkozik. 

— A GOSUBa utasítás a programban ismétlődő 
utasítás sorozat kezdő (ax) címére adja 
át a vezérlést. A sorozatot a RETURN 
utasítás zárja, mely a GOSUB-ot követő 
utasításnak adja vissza a vezérlést. 

1025 ] A szubrutin fogalma és használata. 


591 Írjon programot két 15 elemű tömb (vektor) beolvasására, összegük: AB, különb- 
ségük: A—B, az összeg skalárral való szorzata: 1" (ArB) és a tömbök skaláris szor- 


zata! ! : AT "B kiszámítására, valamint formalizált megjelenítésére: 


19 Köves-—Pármiczky: Általános Statisztika. KIK. Bp. 1973. 
1! dr. Halmai Erzsébet: Lineáris algebra. TK. Budapest. 1979. 
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ABC: 550 FORI-1TO15£ 5290 NEXTI : GOTO 290 £ A ciklusindex nem fut 
a határon (15) túl £ 5220 PRINT I ; TAB (11) TC (D - " ; CCD;TAB(21) "D(D-" 
; DCD; TABC31) "TECD- "EDE 2250 PRINT I ; TAB(4) "F(D-" ; FCDX 


HTZ: OK; 


TEXAS: 51 ] 5220 PRINT I ; TAB(1) ; "C(I) - 7; C(I) ; TAB(1 1) ; "DI -7; DD) 
: TABC21) ; TE)"; EZ 
5250 PRINT I ; TAB(4) ; TF) -" ; FOG 


PRIMO: 550 FOR E1 TO 154 290 NEXT I : GOTO 200 


TV COM: 590 NEXT I : GOTO 200 £ 5220 PRINT I ; TAB(11) ; 7C(D) - " : CC) 
; TABOL) ; "TD -" ; DC) ; TAB(C31) ; TE) - " ; EDE 5250 PRINT I : 
; TAB(A) ; "FC -" ; F(D E Próbálja meg GRAPHICS 2 után 


futtatni a programotf OUTPUT stop: Í CTRL [IP Íz 


VT—-16: 51] 550 FOR I-1 TO 15 £ 590 NEXT I : GOTO 200£] CTRLI NUM LOCK 
megállapítja az OUTPUT listát és bármely karakter folytatást biztosít Z 


j EnőözöS ja lönösék jé: 


böl ús 


KÖZG Ünék tá 


kössz tsszaetszááezág ea 


5SNEW 

519 PRINT "VEKTOR ARITMETIKA" 

520 INPUT "ADJA MEG LAMBDAT";L 

530 DIM A(15), B(15), C(15), D(15), E(15), F(15) 

5409 GOSUB 109 : G-Ó 

550 FOR I-1 TO 15 : IFI215 THEN 209 

560 C(D-A()-BŰ) : DC-A(1)—B() 

570 E(D-LFC() : F-A) "BD 

580 G-GF() 

590 NEXTI 

51ÓdPRINT "ADATBEOLVASO SZUBRUTIN" 

5110 FORI-1TO15 

5120 READ A(1) 

:13ODATA 1.234. 3.6. 7.8. 9. 1011, 12. 13. 14. 15 

5140 NEXTI 

5150 FOR I-1 TO 15 

5160 READ B(I) 

5170 DATA 15, 14, 13, 12, 11, 19, 9, 8, 7, 6, 5, 4, 3, 2, 1 

5180 NEXTI 

5190 RETURN 

5200 PRINT TADATKIIRO SZUBRUTIN" 

5219 FORI-1TO 15 

5220 PRINT I TAB(11) "C(D-"; C(D TAB(21)" 
D(D-";D(1) TAB(31) "E(1D-"; EJ) 

5230 NEXT I: FOR P-1 TO 2000 : NEXT P 

5240 FORI-1 TO 15 

5250 PRINT I TAB(4) "F(D-7; FCI) 

5260 NEXTI 

52706 PRINT 7G-7;G 

5280 END 


3RUN oltlo -[ld A 
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ABC: 580 nem módosul -beni OK: 


HTZ: OK: 


TEXAS: — [52] 530 DIM A (100), B (100), ... § 


PRIMO: 580 nem módosul -ben § 


TV COM: 580G-G:FX 
Próbálja meg az adatkiíró szubrutin PRINT-jei helyére LPRINT-eket 


helyettesíteni § 


VT—-16: 52] OK; 
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AA 


— Egy program bevezető elemekből (pl. 


510), főprogramból (pl. 520—-90, 5190, 
5280) és szubrutinokból (pl. 5106$—140, 
5150—180, 2210—230, 5240—270) állhat. 
A szubrutin valamilyen komplett részfelada- 
tot megoldó , program". A szubrutin behí- 
vása a GOSUBa (a a szubrutin kezdő cím- 
kéje) utasítással történik, elbocsájtásáról 
a RETURN gondoskodik. 

A TAB(C) a formalizálás eszköze. Biztosítja, 
hogy az utána írt adat a képernyő c-edik 
oszlopában kezdjen megjelenni. A képernyő 
40 oszlopra van felosztva, így cC40 lehet. 
A képernyő méretét meghaladó PRINT 
a gombbal megszakítható (ezt a 
2CONT parancs semlegesíti), vagy [CTRLI- 


el lassítható. 


Módosítsa -et n elemű és INPUT-tal behívható tömbök esetére: 


25 
530 
550 
580 


INPUT "A TOMB ELEMSZAMA?" ; N 
DIM A(N), B(N), C(N), D(N), E(N), F(N) 
FORI-I TON 

G-GrF() : IF IÉEN THEN GOTO 200 


51109 FORI-1 TON 
5120 INPUT "A KOVETKEZO A(I) ELEM?"; . A(D 


5130 


5140 NEXT I : PRINT : PRINT 
53150 FOR I-I TON 
21606 INPUT "A KOVETKEZO B(1) ELEM?" ; B(I) 


5170 


5210 FORI-1 TON 
5240 FOR I-I TON 
5270 PRINT "A VEKTOROK SZORZATA-"G 


RET 
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ABC: 


HTZ: 


[53] OKF 


A kiírás az [1] gomb lenyomásával lassíthatói OK f 


TEXAS: 


PRIMO: 


TV COM: 


510 : : PRINT N; 7-7" ; § 531 PRINT I; 7.7"; £ 555 : : PRINT TAB(25) 
ka 


[57] ox: 


53 1 510 :PRINTN ; 7-7"; 453] PRINT I; 7.7; 4 
555 : PRINT TAB(30) ; Kg 


VT-16: 


53 ] OK f A program 25 sec alatt fut végig. Ez független attól, hogy DEFINT 


AZ, illetve egyszeres pontosságú valós számokkal dolgozunk f 
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027 


54 


IF—-THEN-ELSE utasítás használata. 


Bontsa fel az első 100 természetes számot primtényezőire. Számlálja meg a valódi 


osztóval nem rendelkező számokat: 


§ 2NEW 

y 55 A-2 : K-Ó 

510 N5A : P-Ó : PRINT : PRINT N7-"; 

520 FOR I-2 TO AX(1/2) 

530 IF INT (N/D-N/I THEN 31 ELSE 40 
531 PRINT I7."; : P-Ps1 : GOTOT 50 

540 NEXT I : GOTO 55 

550 IF N/E-1 THEN 51 ELSE 55 

551 NEN/I : I-9 : GOTO 20 

555 IF P-ÓTHEN K-K-I1 : PRINT TAB(30) K 


y 556IF INT (N/IDC2 N/I OR IZAt(1/2) THEN PRINT N 
7-y 560 A-As1 : IF A-1ÓÓ THEN END 
— tg 570 I-d : GOTO 10 
x SRUN otto -[d A 
AA — Egy N természetes szám valódi osztója I, 


ha INT (N/D-N/I és IAN teljesül. Az 
I számok a 2ASVN intervallumban keres- 
hetők. Az IF R THENG ELSE 6 utasítást 
akkor használjuk, ha az ,igaz" következ- 
ménye 2-nél több utasítás. Az a, illetve 8 
mutatja, hogy hová helyeztük el az , igaz", 


illetve a , hamis" következményeit. 
Logikai függvény karakter változókkal. Karakter konstansok INPUT-ja. 


Irjon alkalmazási programot kamatos-kamat, annuitás és kölcsöntörlesztés, valamint 


inverzeik! ? kiszámítására: 


12 Matematikai közgazdasági gimnáziumok II-IV. osztálya számára. TK. Budapest. 
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ABC: 520 PRINT "MI KERUL KISZAMITASRA? " : INPUT" A XI $ STOP tö- 
rölvei 56ÓIF AK €x5" FELKAMATOLTTOKE " THEN 110 £ 
Azonosító szöveget egybeírjuk £ 570 : INPUT K(0) £ Ugyanaz a jel számot (KÓ) 
és tömböt (K(N)) nem azonosíthatk Hasonló a helyzet AÚ, A(N) és TÓ, T(N) 
esetében, ami A(Ú) és T(0) jelöléssel oldható fel. 

HTZ: OK £ 

TEXAS: OK; 

PRIMO: 54]OKA 

TV COM: )]54)]-25 DIM R(30), D(30), E(30), K(30), T(30), A(3Ó) 35 TÖRÖLVEK 
Ismételt számolás esetén az 550 dimenzionálás hibajelre vezetnef Ha GO 
TO 20 helyett GOTO 409-at alkalmazunk a szubrutinok végén, akkor 

54 J OKG 
VT-16: 520 CLEAR : INPUT "MI KERUL KISZAMITASRA?" ; A$ 3 


A CLEAR törli a változók értékét és így ismételt számítások esetén az 350 DIM 


nem vezet tilos átdimenzionálásra £ 
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3 NEW 
5.10 PRINT"SZAMITHATO: FELKAMATOLT TOKE, 


DISZKONTALT TOKE, JARADEKOSSZEG, JARADEKTAG" 


515 PRINT" KOLCSONOSSZEG, TORLESZTOTAG" 
520 STOP:INPUT"MIKERUL KISZAMITASRA?"; A$ 
530 INPUT "HANY?A KAMATLAB?"; P 

540 INPUT "MENNYI AZ EVEK SZAMA?"; N 

550 DIM R(N), D(N), E(N), K(N), T(N), A(N) 

555 GOSUB 370 

560 IF A$C5"FELKAMATOL TOKE" THEN 110 
570 INPUT "KEZDOTOKE" ; KO 

5380 K(N)-KÓ" R(N) 

590 PRINT "FELKAMATOLT TOKE-"; K(N):GOTO 20 
5110 IF A$ a 5"DISZKONTALT TOKE" THEN 160 

5 120 INPUT TALAPTOKE"; K(N) 

5 330 K0-K(N)"D(N) 

5 14Ó PRINT "A DISZKONTALT TOKE-"; KÓ : GOTO 20 
5 160 IF Ag C53"JARADEKOSSZEG" THEN 210 

5 170 INPUT "JARADEKTAG"; AD 

2 180 A(N) - ADFE(N) 

5 190 PRINT A$;"-"; A(N) : GOTO 20 

5210 IF A$€57"JARADEKTAG" THEN 260 

5 220 INPUT "JARADEKOSSZEG" ; A(N) 

2 230 AD-A(N) "FE(N)t(—1) 

5 240 PRINT AS; "-"; AG : GOTO 20 

5 260 IF A$€ 5" KÖLCSONOSSZEG" THEN 310 
5270 INPUT "TORLESZTOTAG7; TO 

2 280 T(N) - TÓFD(C1) "D(N)FE(N) 

5.290 PRINT AS; "7-7"; T(N): GOTO 20 

5310 IF Ag CC 53"TORLESZTOTAG" THEN 360 

2 320 INPUT "KOLCSONOSSZEG" ; T(N) 

2 330 TÓ-T(N)"YR(1)FR(N) FE(N)(—1) 

2 34Ó PRINT A$7-"; TÓ: GOTO 20 

2 360 PRINT "A KEREST NEM ERTEM": GOTO 20 
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ABC: OK, ha AÚ helyett A(Ú) és TÓ helyett T(D) áll: 


HTZ: 55] OK a 


TEXAS: OK 


PRIMO: OK; 


TV COM: 56 DIM R(80), ...£ 


VT—16: 55 ] 520 CLEAR: g 


028 


5370 RC1)-1:P/100 : RC(N) - RODIN : D(1) - RCD)t(—1) 
2380 D(N) - R(NYY(—D) : ECN) - (RG) "(R(N)—1)KRC1)— 1) 


5399 RETURN 
5400 END 


x SRUN otto -IÍd A 


AA — 


Közvetett logikai függvény szerkesztése. 


A BASIC karakter kifejezések között is 
értelmezi a a S, -, 2, 5 és x25 (nem 
egyenlő) relációkat. Ezt úgy oldja meg, 
hogy minden karakterhez azonosító kódot 
(ASC kód) rendel és ezeket páronként 
összehasonlítja. Az első eltérés alapján dönti 
el a relációt. Ha pl. kód (A) £... Ckód(Z), 
akkor BARNA-ABARTA, mert "NAT". 
Igy  string-ek is szerepelhetnek logikai 
függvényekben. 

INPUT utasítás karakter kifejezésekre is 
felírható, ha string (pl. A$) változót adunk 
meg. Az idézőjelbe tett szám (pl. 719857) 
karakter konstansnak minősül az input-nál. 
A szöveget nem tesszük " "-be (pl. BARNA; 
B12; 7127). 

Programunk 6 féle bankügyletet foglal 
magában. Ezek egy-egy rutin-nal kezel- 
hetők. A kiválasztás a név megadását követő 
IF lánc feladata. A 6 rutin mindegyikét 
kiszolgálja a3370—380 szubrutin. 


Oldja meg -et numerikus azonosítással: 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT—16: 


80 


OK 3 A GOTO 20-ból kiléphetünk a egyszeri leütésével 


OK: 


[56] ox: 


[56] ok: 


57 DIM J(30), M(30) 


[56] ox: 


55 — PRINT "RUTIN VALASZTEK 1-6" 
510 PRINT 1""FELKAMATOLT TOKE" 
511 PRINT 27""DISZKONTALT TOKE" 
512 PRINT 3""JARADEK OSSZEG" 
513 PRINT 4""JARADEKTAG" 
514 PRINT 5""KOLCSONOSSZEG" 
515 PRINT 6"£TORLESZTOTAG" 
520 STOP:INPUT "MELYIKET SZAMOLJA?"; Z 
569 IFZC5SITHEN 110 
5D1IdIFZCa52 THEN 160 
5169 IFZ €53 THEN 219 
5190 PRINT "JARADEKOSSZEG-" ; A(N): GOTO 20 
5H210IFZ C54 THEN 260 
5240 PRINT "JARADEKTAG-" Ap: GOTO 20 
5260 IF Z 55 THEN 310 
5290 PRINT "KOLCSONOSSZEG - ";T(N) GOTO 20 
5310IFZCa5 6 THEN 360 
5340 PRINT "TORLESZTOTAG-"; TO : GOTO 20 
x SRUN oto -[Id A 


AA — Ha a rutinokat számokkal azonosítjuk 
(pl. 3 e járadék összeg), akkor numerikus 
input-tal (220) és logikai függvényekkel 
(260, 5110, stb.) aktiválhatók. 


Egészítse ki az programot egy törlesztő-tervet kidolgozó szubrutinnal (Z-6 
esetben értelmezhető): 


5340 PRINT "TORLESZTOTAG-";T0) 

5341 INPUT "HA KER TORLESZTO TERVET, 
IRJA: IGEN, MASKOR: NEM" ; L8 

5342 1F L$ C5 "IGEN" THEN 20 

5343 DIM J(N), M(N) 

5344 PRINT " M(D-ADOSSAG; J(I) AZ ADOSSAG 
CSOKKENESE AZ I. EVBEN" 

5345 FOR I-1 TON : M(0)-T(N) 

5346 M()-M(1—1) § R(1) — TÓ 

5347 J()-TÓ — MCI-1) "(PI00) 

5348 PRINT I, MC), JC) 

5349 NEXTI : GOTO 26 

x 53RUN ollo -Ild A 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


Programok összefűzését lásd P123-nál f 


Programok összefűzését lásd P123-nál £ 


Programok összefűzését lásd Pl123-nál 


A programok összefűzését lásd P123-nál; 


TV COM: 


VT-16: 
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Programok összefűzését lásd P123-nál X 


A programok összefűzését csak akkor tudjuk megoldani, ha ASC kódban rögzít- 
jük őket, azaz PSAVE "NEV" , AZ Az összefűzést lásd P123-nál? 


AA — A kész program bármikor bővíthető új 
utasításokkal és rutinokkal. Ha a program 
címkézése és az új utasítások száma meg- 
engedi, akkor az új elemeket beszúrjuk 
logikai helyére, ellenkező esetben a program 
végéhez fűzzük. Ez utóbbit akkor is meg- 
tehetjük, ha a beszúrás is megoldható 


volna például: 


5342 IF L$€5 "IGEN" THEN 29 ELSE 410 
5410 DIM J(N), M(N) 


5470 NEXT I : GOTO 20 


— Ha egy programot egyszeri kísérlethez 
módosít, háttér-tárolón csak akkor őrizze 
meg, ha fontos változathoz jutott. 

— Ha háttér-tárolóról tölti be az alap-progra- 
mot, a LOAD-ot ne előzze meg a módosító 
utasítások lekopogása, mert a LOAD törli 
azokat. 

— Ha két vagy több programot szeretne össze- 
fűzni úgy, hogy háttér tárolóról egymás- 
után betölti őket, a LOAD törlő hatása 
miatt kudarcot vall (a megoldást lásd a 
P123-nál). Töltse be az  összefűzésben 
szóbajövő legnagyobb programot, a többit 


pedig kopogja le, figyelve a címkézésre. 


ABC: 


HTZ: 


DLIST és tartósan nyomja [D]-eti Munkarend: 91, 3, 2 
SSAVE CAS : PIO? CAS a kazettás egység azonosítója; IABC—80 IR 
PSTOPZ A szalag első 3 fordulatnyi részét hagyja üresen 


57 Munkarend: 1, 3, 2 3CSAVEft—I, "PIO"3 —I a kazettás egység 
azonosítója IREADY IE 3STOPA A szalag elején 3 fordulatnyi rész marad- 


jon üresenf Nyomja le az FI gombot mielőtt csévél (piroslámpa világít) £ 


TEXAS: 


DSAVECSIZ CSI a kazettás egység azonosítójat A rögzítés munka- 
rendjét a KÉPERNYŐ diktálja Kulcsszavak: REWIND -visszacsévél, PRESS- 
lenyom, RECORDING-felvesz, CHECKéellenőriz, EXIT-kilép £ 


SSAVE "PI": IOK NÉSSTOP? 


PRIMO: 


TV COM: 


VT—-16: 
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DSAVE$S:"PI0" ÍRET ÍZ A $5 a kazettás egység azonosítójak IOK IX. 
Próbálja meg a 3SAVE "P1p" utasítást alkalmaznii 


Keménylemezes ( Wdisk ) egységgel ( Wfloppy ) dolgozunk £ 

Bekötés a WINCHESTER kapubaX WFLOPPY ON: 5VT—16 ON; [FI lg 
Datum és idő kérés -el elodázhatói Nlc2IIlt Az UDOS operációs rend- 
szer automatikusan betöltődik a Wdisk -ről a gépbeg II csa: I kap- 
csolódás A disk-ref VT BASIC lemez A-ban Nas vtbasic:. Il 
ILOK IA gép BASIC parancsra vár £ 1,2.3 törölvet SSAVE "C : P1p?? 


LENT [4 OK Ig 


2. A KAZETTÁS MAGNETOFON KEZELÉSE, PROGRAMOZÁSA ÉS FELHASZNÁLÁSA 


029 Program rögzítése kazettára. SAVE és VERIFY utasítások. 


Kérjen listát a képernyőre a gépben lévő programról, majd rögzítse kazettára: 


ús 2LIST 


Id FORI-1 TO7:READ B 

2 DATA 4, 5.2, 3.85, 2E3, —4.15, —2E4, —3E—1 
30 PRINT B, : NEXT I : END 

READY 


Ís PTEGYEN EGY ÜRES KAZETTÁT A MAGNETOFONBA. 
A SZALAG LEGYEN BALOLDALT: 
2; PKOPOGJA LE AZ ALÁBBIAKAT: . 
[e : DSAVE "P1O", 1,1 
3. PNYOMJA LE A MAGNETOFON ÍREKORD] ÉS [PLAY 
BILLENTYÜIT: 


OK 
SAVING P19 / 
READY ! 


AA: . — A programoknak nevet ad az alkotó, minden 


programnak mást. A 110 ] program neve 


lehet pl. "Pld", TADATOLVASO"?" stb. 
A SAVE (megőriz) utasítás a program 
nevét, a kazettás egység 1 azonosítóját 
(első 1-es) és programhoz , vége" jelet 


generáló 1-est (második 1-es) tartalmazza. 
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ABC: 


Ha a név 8 karakternél hosszabb, hibajelet kapunkg A technikai hibákra a gép 
nem figyelmeztet fg Teljes ismétléssel korrigálhatunk £ 
ellenőrzés nem végezhető a rögzítés minőségét illetően; 


TEXAS: 


PRIMO: 


TV COM: 


VT—-16: 


Munkarend: 21, 2, 5, 3 $CLOAD? "Pip" [NL ENREADY Ik Az ellen- 
őrzési folyamatot a teljes képernyő jobb felső sarkában két csillag jelzi, az egyik 


villogá A gép csak akkor vezérli a magnót, ha F1 nincs lenyomva. 


Az ellenőrzést a gép kezdeményezi. A képernyőn a rögzítés végén CHECK 
TAPE (Y OR N)? jelenik meg. Válaszunk (yes), vagy (no). Mindkét 
esetben a képernyő diktálja további teendőinket. 


35 5TEST "P19g" ÍRET [ZA gép válasza: II 02 00 FOUND: P1g I, ahol 
az első adat a rekordok, a második a hibák számát jelöli a rögzített PlO-ben; 


Ha a hibaszám nagyobb 0-nál a rögzítést megismételjük 


5 VERIFYé5: "PI" (RET JE I SEARCHING II I READING I II PIG II 


IOK IX A $5: elhagyhatóg 


A Wfloppy automatikusan ellenőrzi a program rögzítésétk  VERIFY 
beadására a gép hibajellel válaszol NEM 

A képernyő alján FI,... FIÓ gombok utasítás értéke áll; 20FF 
eltávolítja a képernyőrőlf Próbáljaki [F9] [Fi] [LENT] leütésekett 
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A név hossza.ne haladja meg a 16 karaktert. 
A nevet időzőjelbe tesszük. 

— A SAVE "NÉV", 1,1 utasítás hatására a 
szalagon megjelenik a név, program és vég- 
jel. A folyamatról a SAVING, befejezésé- 
ről a READY tájékoztat. 

— A rögzítés technikai akadályait a gép közli. 
Ha pl. nem nyomtuk meg a REKORD és 
PLAY billentyűket, akkor figyelmeztet: 
I PRESS RECORD AND PLAY ON TAPE I 
erre a mulasztást pótoljuk és a rögzítés 


végbemegy. 


Ellenőrizze az rögzítés pontosságát: 


SNYOMJALEA — REWIND BILLENTYŰT A MAGNÓN 
(VISSZACSÉVÉLI A SZALAGOT): STOP. 
PNULLÁZZA A MAGNÓ SZÁMLÁLÓJÁT: 


PKOPOGJA LE AZ ALÁBBIAKAT: 


DVERIFY "P10", 1 RET 
PFIGYELJE A KÉPERNYŐT: 


II PRESS PLAY ON TABE II 


PNYOMJA LE A PLAY BILLENTYŰT: 


SEARCHING FOR P1lop 
FOUND Pl9 
VERIFYING 

OK 

READY 


AA — A VERIFY (átvizsgál) utasítás a gépben és a 
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TEXAS: 


PRIMO: 


TV COM: 


VTF-16: 
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Munkarend: 51, 2, 4, 3 5LOAD CAS:P10 I ABC 80 Il Hibás 


névadás esetén végigkeresi a szalagot a gép Ha ny ismeretlen, a szalag elejéről 


indulhatunk § 


Munkarend: 91, 2, 4, 3 $CLOAD$—1, "P10" (NL TA töltési folyama- 
tot is két csillag jelzi a képernyőn. A villogást I READY I követi Ha ny isme- 
retlen, a szalag elejéről indulhatunk, a gép megkeresi a programot az adott név 


alapján g 


5OLD CSI (ENT Jé A program betöltéséhez kapcsolódó munkarendet a 
képernyő diktálja A program neve alapján a gép nem találja meg a programot, 


ezért alapvezetően fontos ny pontos beállítása f 


5SLOAD "P19" [RET[E102 ÓÓ FOUND:PID E Hibás névadás esetén a 
teljes szalagot átvizsgálja a gép és a talált program címeket SKIP:"CIM" formá- 


ban közli X Ha ny ismeretlen, a szalag elejéről indulhatunk § 


DLOAD$5: "P1O"  [RETIE I SEARCHING I II READING I I PIGII 


NOK IIX Hibás névadás esetén a teljes szalagot átvizsgálja a gép és a talált prog- 
ramok címeit FOUND: " CIM" formában közli £ A $5: elhagyható £ 


[59 ] 81, 2, 3, 4 förölvek LOAD 7C:PIp" (ENTJZA Wdisk beépített mág- 
neslemez " 5 MEGABYTE (2 " 24 byte - 1 MEGABYTE) kapacitással X Igen 
gyorsg4 Nagyméretű programok és adathalmazok rögzítésére használjákg A 
Wdisk -ről KILL" C€: P10. BAS" parancs törli a PIÓ-etf BAS a gép 


által generált típus jel, a program tartozéka f 


szalagon lévő program egybevetését kezde- 
ményezi. A képernyőn megjelenő OK a 
jó, a VERIFY ERROR hibás rögzítést jelez. 
Ezesetben az és [58] feladatot 
megismételjük. Ha a rendszer összekapcso- 
lása jó, a dugaszok kontaktusa megfelelő, 
a környezet hőmérséklete nem magas 
( C24 "C), akkor a sikertelenség okát a tech- 
nika meghibásodásában kereshetjük. 

— Az OK-al zárult VERIFY programunk meg- 
őrzését és ismételt alkalmazási lehetőségét 


nyugtázza. 


PIRJA FEL A KAZETTA REGISZTERÉRE A PROGRAM HELYÉT 
(np—ny; A SZÁMLÁLÓ KEZDŐ ÉS VÉGÁLLÁSA) ÉS CÍMÉT: 

PCÍMEZZE MEG EGYEZŐEN A KAZETTÁT ÉS A REGISZTERT 
EL. Ppp1): 


AA — A SAVE és VERIFY utasításokban a név és 
az eszközazonosítók megegyeznek. Eltérést 
csupán a végjel (1) értelemszerű kezelése 


jelez. 


030 Program betöltése kazettáról. LOAD utasítás. 


Töltse be a PÓd1-ről a PIÓ programot és futtassa: 


PTEGYE A Pg01-ET A MAGNÓBA: 
DPCSÉVÉLJE A SZALAGOT nr-RA: STOP. 
PKOPOGJA LE AZ ALÁBBIAKAT: 


5LOAD "P19", 1, C 
II PRESS PLAY ON TAPE [] 


s LENYOMJA A PLAY BILLENTYŰT. 
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ABC: 


60 ] ISAVE CAS: ADATOLV [RET FSVERIFY nem működik 


HTZ: 


TEXAS: 


A program nevének csak első karakterét azonosítja a gép. Ezért elegen- 
dő, ha XCSAVEft—1, "A", illetve JCLOAD? "A" utasításokkal dolgozunk. 


Program keresésnél az "A" megjelenik az egyik csillag helyén f 


60 ] SSAVE CSI LENT I Ha a program címét megadjuk, a gép színtaktikai 
hibát jelezf A program kezdetét a fordulat-számlálón nx ismeretében a kezelő 


állítja bef 


PRIMO: 


60] SSAVE "ADATOLVASO" £ A program címe legfeljebb 16 karakterből 
állhat. Túllépés esetén FC ERROR lép bek 


TV COM: 


DSAVEfS: TADATOLVASO"g A gép csak 16 karakterig jegyzi fel a 


címet f 


VT-16: 


DSAVE "C: ADATOLVASO" ( ENT [§A címból 8 karaktert jegyez fel a 


Wfloppy  k 
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NOK 
SEARCHING FOR P1lÓ 
FOUND Pld 
LOADING j 
READY I 


AA — A LOAD utasításban a cím ("PID"), a 
kazettás egység azonosítója (1) és a mag- 
netofon motor indítója (C) szerepel. A gép 
üzenetei: SEARCHING (keresem), FOUND 
(megtaláltam), LOADING (töltöm), és 
READY (kész). A gép megkeresi a szalagon 
az adott című programot és a gép memóri- 
ájába tölti. Hibás címadás esetén (vagy ha az 
író-olvasó fej hibás) II ? FILE NOT FOUND I 
jelzi, hogy nem találja. 

- A LIST utasítás megjeleníti a programot. 
Enélkül is futóképes a program, de jobb 
meggyőződni a RUN előtt, hogy a kívánt 


programot töltöttük-e be a kazettáról. 


tői 2LIST 
§ 2RUN 


Módosítsa a programot 20 adat beolvasására. Adja meg az adatokat, majd rög- 


zítse a programot "ADATOLVASO" címmel az előző program után 1 fordulatra: 


510 FOR [I-1 TO 29 : READ B 
521 DATA 1, 2, 3,4,5, 6, 7,8,9, 10, 11, 12, 13 


E § 5SSAVE"ADATOLVASO", I, 1 
hi 5SVERIFY"ADATOLVASO",1 RET 


ABC: 


HTZ: 


A keresést a RESET gomb (gép hátoldala) vagy a STOP (kazettás egység) 


állítja le. Az első megoldás gyorsabb k 


DCLOAD$ —1, VADATOLVASO" (NL]$A számláló túlhaladást jelez, 
ha az Fl gomb lenyomva maradt, ha a keresett program sérült, hiányzik stb. 
(RESET, STOP) X I READY I jelzi a sikeres betöltést ( , STOP) a 


TEXAS: 


PRIMO: 


TV COM: 


VT—-16: 


A gép NEM TUDJA a feladatot megoldani. A szalagot az , ADATOLVA- 


SO" c. program rögzítési pontjára kell csévélni £ 


A keresést a kazettás egység STOP billentyűjével szakítjuk megf 


OK X A keresést szakítja meg k 


NEMÉ 


A Wfloppy feljegyzést készít a tárolt programokról (és adat file -okról). 
Betöltéskor a feljegyzésből állapítja meg a file -ok helyét a lemezen § 


A Wfloppy gyors lemezegység (fix disk -kel látták elk 


AA 


— VIGYÁZAT! A szalag felvétel törléssel kez- 


dődik. A kazettás egység nem védi a koráb- 
ban rögzített programokat. A szalag beállí- 
tásáról, a számlálót figyelve, magunknak 
kell gondoskodni. Ezért regisztráljuk a fel- 
vitt programokról a számláló kezdő és 
végállását. Minden program ny kezdőállása 
megegyezhet az előző program ny végállá- 
sával. A beállítás a SAVE [(RET ]-e előtt 
eszközlendő. 

A VERIFY csak akkor működik ha a 
leütése előtt a szalagot visszacsévéltük 


a program kezdőpontja elé. 


61 Csévélje teljesen vissza a szalagot és adjaa LOAD "ADATOLVASO" utasítást: 


b új 5ILOAD"ADATOLVASO", 1, C RET 


AA 


— A szalag addig megy, amíg a gép a keresett 


címet meg nem találja. Addig is közli a talált 
címeket. A READY és a szalag leállása 
sikeres műveletet jelez. Ha a számláló 
túlhaladást jelez, akkor a 
gombbal megállítjuk a kereső folyamatot, 
mert sikeres betöltésre nem számíthatunk. 
Számítsunk rá, hogy a kazettás egység 
munka fejei (törlő, író-olvasó) 15—20 órai 
használat alatt felmágneseződnek. A demag- 
netizálást a fejek alkoholos áttörlésével 
végezzük. Pamut kendőt használjunk és 


tiszta alkoholt. 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


530Ó PREPARE "NEVSOR" AS FILE 62: FOR I-1 TO N : PRINT362, 
A XA (DD: NEXT IZ /A 520 OPEN "NEVSOR" AS FILE 15 : FOR I-1 TO N: 
INPUTLINE 15, B XI (D : PRINT B (1) : NEXT IZ Ha N-et pontatlanul 
adjuk meg, betöltés OK, de túlméretezéskor hibajel kerül a képernyőre és a 


magnetofon nem áll le ; 


536 PRINT$ —1, "NEVSOR" : FOR I-1 TON : PRINTft —1, A$ (I) : 
NEXTÉ 540 PRINTs —1, "VEGE" : ENDf /A 520 INPUT£ —1, NEVS : IF 
NEV$ €C5 "NEVSOR" THEN 20 £ 521 PRINT NEV$ X 522 FOR I-1 TO N: 
INPUT:$ —1, B$(I) : PRINT B$ (1) : NEXT f 5230 INPUT$ —1, VEGES : PRINT 
VEGE$ : ENDX OPEN—CLOSE utasítások nincsenek. A file számot nem kapí 


530 OPEN 62 : "CSI", FIXED, OUTPUT : : : : PRINTit62 : A$ (1) : : 2 

540 CLOSEt62x /A 520 OPEN$15 : "CS17, FIXED, INPUT::  ::INPUT:15: 
B$(I):.: 4 30CLOSE$15 4 A FIXED 664 karakteres rekord -ok rögzítését jelzi g 
Az OUTPUT rögzítésre, az INPUT betöltésre nyit £ 


55 CLEAR1000 £ Tágítjuk a gép string  tárolóját 1050 byte -ra (50B 
adott) § 530 CREATE "NEVSOR" : FOR I-1 TON : PRINT$A$(I) : NEXT 
$5040 CLOSE : END /A 520 OPEN "NEVSOR!" : FOR I-1 TON : INPUTS 
B$(I) : 4 530 CLOSE:: A betöltés érzékeny a rekord -szám túllépésére 
(INPUT N) X CLEAR 1000 kikapcsolásig élf 


510 PRINT "A NEVEK SZAMA" : INPUT N : DIM A$(N) "30X£ 530 
OPEN OUTPUT "NEVSOR" : FOR I-1 TO N : PRINTS5 : A$(I) : NEXT 3540 
CLOSE OUTPUT: $ /A 510 : DIM B$(N)"30 £ 520: OPEN INPUT "NEVSOR" : 
: INPUT£5 : B$(I) : f 530 CLOSE INPUT: 


VT—-16: 


[62 ] 530 OPEN 70", 4462, "C : NEVSOR" : £ 540 CLOSE462 : END $ 70" 
OUTPUT-ra megnyitott file a C Wdisk -eng Az adatok rögzítése soros £ /A 
520 OPEN "TV", 415, "C : NEVSOR" : z "17 INPUT-ra megnyitott file a C 
Wdisk -enk A CLOSE$I15 helyett CLOSE is állhat g A visszaolvasás az első N 


adatra szól és nem kezdődhet pl. a mádosik vagy későbbivel f 
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Folytassa a munkát a feladatnál. A fontosabb programokat rögzítse a POOl-re. 
Erre a programok alatt megjelenő o 1 Oo jel figyelmezteti! !! 


Adat, rekord, file. OPEN-—PRINT4;—CLOSE utasítások. 


Rögzítsen névsort kazettára, majd töltse be a gépbe és írassa képernyőre: 


8 2NEW 
510 INPUT "A NEVEK SZAMA"; N : DIM A$(N) 
520 FOR I-1 TON : INPUT "A KOVETKEZŐ NEV 
97"; A$(ID : NEXT 
530 OPEN62, 1, 2, "NEVSOR" : FOR I-1 TON : 
PRINT3-62, A$(I): NEXT 
540 CLOSE62 : END 


PTEGYEN ÜRES KAZETTÁT A GÉPBE: 

x SRUN otto -Id A 
SREGISZTERBE: np—ny , "NÉVSOR" 
SCIMEZZE MEG A KAZETTÁT CEPL. F1p1) 


JA? 2NEW 


510 INPUT "A NEVEK SZÁMA"; N : DIM B$(N) 
520 OPEN15, 1, d, "NNEVSOR?" : FOR I-1 TON : 
INPUTs$ 15, BX(I : PRINT B$X() : NEXT 

530 CLOSEI5 : END 


BCSÉVÉLJE ny-RA A KAZETTÁT 
x SRUN oato -Ild a 


AA — A program a rögzítendő adatok input-jával 
kezdődik. A bevitt adatok file-t képeznek. 
A file számmal, pl. 62 és névvel, pl. "NEV- 
SOR" kerül azonosításra. A szám technikai 
segédeszköz, tehát helyettesíthető, de a név az 


tartozék. 
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ABC: 520 PREPARE "FORGALOM" AS FILE 63: $ 5230 PRINTí463, F(,J) 
: NEXT J : NEXT I : CLOSE63 : END £ A 530 F(I, J), ";"-vel is működik £ 

HTZ: 520 PRINT8 —1, "FORGALOM" : FOR I-I TO 3 : FOR J-I TO 4 : 
PRINT —1, F(I, J) : NEXT J, I$ 530, PRINT$ —1, "VEGE" : END $"VEGE" 
helyett 00 is alkalmazható f 

TEXAS: 63 ] 510:NEXT J:NEXT I 520 OPEN363: "CSI", FIXED1I00, OUTPUTÉ 
530 :: CLOSE$63 ::£ Ha FIXED 100-at írunk, a gép 128-at ért, mert három 
(64, 128, 192) rekord - hosszot értelmez és fölfelé kerekít f 

PRIMO: 63 ] 520 CREATE "FORGALOM" : £ 530 PRINTSEKI, J) : NEXTJ, I : 
CLOSE : ENDÉ 

TV COM: 55 DIM F(3,4) § 520 OPEN OUTPUT "FORGALOM": $ 530 PRINTÁ5 
: F(I, J) : NEXT J, I : CLOSE OUTPUT : END$ A rekord -ok elválasztásá- 
ról a gép gondoskodik £ 

VT-16: 520 OPEN "0", 463, "C : FORGALOM" :$ 530 PRINT$63, F(I, J) 


: NEXT J, I : CLOSE$63:$X A rekord -ok elválasztásáróla Wfloppy gondos- 


9959 


kodik ( "." hibás betöltésre vezet) £ 


96 


Az adatfile rögzítése megnyitással 
(OPEN62,1,2, "NEVSOR") kezdődik. Eb- 
ben az l a kazettára, a 2 pedig a rögzítésre 
utal. A "név" azonosítja a file-t. A 
PRINT462, AXID oldja meg az adatok 
listaszerinti rögzítését. Ezt követően a 
file -t lezárjuk (CLOSE62). A file jelen- 
legi száma (62) csak arra való, hogy a három 
utasítást összekapcsolja vonatkozás szem- 
pontjából. 

Adatfile . kazettáról való betöltését az 
OPEN-INPUT:t -CLOSE utasításokkal 
oldjuk meg. Látható, hogy a file szám (15) 
elfelejthető. Betöltés esetén 2-es helyett 
Ó szerepel a nyitó utasításban. A 3 jel 
perifériáról való adat input-ot jelöl (köz- 
vetlenül csatlakozik az INPUT szóhoz). 
A file adatai (rekord-ok) ciklus utasítással, 


egyenként kerülnek betöltésre. 


Egy kereskedelmi vállalat 4 boltja havi bontásban adja meg negyedévi forgalmát 


(3x4-es tömb). Rögzítse kazettára a tömböt, majd töltse be a gépbe: 


ki 2NEW 


519 FOR I-I TO 3:FOR J-1 TO 4 : INPUT "FORGALOM?" ; 

F(I, J) : NEXT J,I 
520 OPEN 63, I, 2, "FORGALOM" : FOR I-1 TO 3 : FOR J-1 TO 4 
530 PRINT-i63, F(I, J),"," : NEXT JI : CLO SE63 : END 


2FIÓI A MAGNÓBAN, SZÁMLÁLÓ n4 -re ÁLLITVA : 


hi SRUN 


oto 


- [d 


A 


EAT 


ABC: 510 OPEN "FORGALOM" AS FILE 5 : FOR K-I TO 3 : FOR L-1 
TO 4 : INPUT3£5, P(K, LYÉ INPUTLINE$ string -ek, INPUTS számok betölté- 
sénél használható i 
[64 ] 510 J-ITO4£ 520 FOR I-1 TO 3 : PRINT "FORG" : INPUT FCI, J) : 
NEXT I : NEXT JZ 

HTZ: 510 INPUT$ —1, NEV$ : IF NEV$ a 5 "FORGALOM" THEN 10 
$ S2Ó PRINT NEV$ : FOR K-1 TO 3 : FOR L-I1 TO 4 : INPUT: —1, P(K, L)f 
530 PRINT PR(K, L), : NEXT L, K : INPUT$ —1, VEGE$ : PRINT VEGES : 
ENDZ 00-nál vá 

64 ] 525 PRINT —1, F(1D F2,D,FG,JDE 

TEXAS:  [63/A [ 510 OPENs5 : "CSI", FIXED 166, INPUT ::£ 
[64] 525 PRINTst64 : PCI); 7"; P(C2); 7"; (P3)£ 

PRIMO: 510 OPEN "FORGALOM" : FOR K-1 TO 3 : FOR L-I1 TO 4 : 
INPUT$ P(K, L) : NEXT L, K : PRINT? 520 FOR I-1 TO 3: FORJ-1 TO 4 : 
PRINT P(I, J) ; : NEXT J : PRINT : NEXT I : CLOSE : END 64 ] 525 
PRINT$P(1), P(2), PC3)i OKK Az adat rögzítés 256 byte -os pufferből törté- 
nik. Célszerű az adatokat együtt gépre vinni és utána rögzíteni. Igy a szalag ki- 
használása jobb f 

TV COM: Í63/A ] 55 DIM P(3,4)t 510 OPEN INPUT "FORGALOM" : : INPUTS5 : 
P(K, L)X 520 : CLOSE INPUT : END E 
[64 ] 55 DIM F(B,4), P(3) 525 PRINTS5 : P(1); "PDI 77; P(B)R 

VT-—16: — [63/A ] 510 OPEN "I", $5, 7C : FORGALOM" : $ 526 : NEXT L : PRINT : 


NEXT K : CLOSE$5 : 4 


64 ] 525 PRINT-3t64, (P1), P(2), P(3) 
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SKOPOGJA LE A TÖMB ADATAIT SORFOLYTONOSAN: 
SREGISZTERRE n£—n$ ÉS "FOGALOM" : 


JA SNEW 
pé 510 OPEN 5, 1, b, "FORGALOM" : FOR K-1 TO 3 : FOR L-1 
TO 4 : INPUT:5, P(K, L) 
520 PRINT P(K, L), : NEXT L, K : CLOSE5 : END 
k 5RUN otto -Ííd A 


ADA — A file nem kötődik szorosan numerikus 
azonosítójához és a mozgatásakor használt 
változókhoz. Igy a rögzítés és betöltés azo- 
nosítói és ciklus változói (pl. IK; JeL; 


FeP) egymástól függetlenül jelölhetők ki. 


Képezzen egy-egy bolt forgalmi adataiból rekord-ot és így rögzítse kazettára, majd 


töltse be a gépbe. 


nk 5SNEW 
510 OPEN§4, 1, 2, "FORGALOM" : FOR J-1 TO 4 
520 FORI- 1 TO 3 : INPUT. FORGALOM?" ; FI, J) 
: PC(D-F(, JD) : NEXTI 
ks 525 PRINTs64, P(1) ; CHR$(13) P(2); CH R$(13) P(3); CHRS(13) 
530 NEXT J : CLOSE 64 : END 
x 5SRUN oto 5ld A 


2AZ ADATOKAT OSZLOPFOLYTONOSAN KOPOGJA LE: 
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ABC: 525 PREPARE "FORG" AS FILE 64 : FOR J-1 TO 4 : PRINT364, F(1, J) 
FO ID," FG,DÉ 530 NEXTJ : CLOSE64 : END£ 
64lal ok: [64/B] NEM működikf A átalakítását a hézagmentes 
rögzítés igénye indokolja. A hézagok betöltésnél STOP-ként működnek 
65] lásd ! 64 Íx 
HTZ: 64/A ] OK; 
64/B]A ] 64] így nem olvasható visszax A rekord -ok első tagjait tölti be 
agépx 
65 ] 525 PRINT$ —1, S(1), S(2), S(3), S(A)X 
TEXAS: 64/B ] A így NEM olvasható vissza gk 
525 PRINT65 : S(LDD);. 7, 7 5 S(27 SB, TSAK 
PRIMO: 64/A ] OKE NEMG 
65] OKF 
TV COM: ]64/A] OK: 
64/B ) Igy nem olvasható vissza 
65 ] 525 PRINT$S : S(DY. GY, SD S(BG TT SAR 
VT-1ői 64/A] OK; 
64/B ] 530 NEXTI:PRINT:NEXTJ:$ OK: 
65] OKÉ 


A P63., PG4 és P6G5 rögzítési módok a Wfloppy számára egyenértékűek. 
Bármelyik betöltölthető a PG3A, PG4A vagy PGSA programmal; 
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[657] 


ja 8 


ep 


MA — Az adat INPUT most oszloponként történik. 
Egy-egy oszlop adatait a P(I) tömbváltozó 
segítségével rekord-ba szervezzük (a rekord 
tehát adatokból álló szervezeti egység 
pl. [P(1), P(2), P(3)]9. A rögzítés (és betöl- 
tés) tárgyaként így adat helyett a rekord 
funkcionál. A jelen rekord csak akkor válik 
betölthetővé, ha a rögzítésnél CHRXI13)-at 
iktatunk a rekord adatai közé és a rekord 
végére. A betöltés ugyanis rekord-onként, 
az azonosítás viszont adatonként történik 


(pufferes betöltés). 


5SNEW 
510 OPEN 30, 1, d, "FORGALOM" : FOR J-1 TO 4 
520 INPUT:30), FI, F2, F3 : PRINT FI, F2, F3 
530 NEXT J : CLOSE30 : END 

SRUN Ooto [ld A 


SNEW 
510 OPEN30, 1, d , TFORGALOM" : FOR J-1 TO 4: FOR I-1 TO 3 
520 INPUT:30, F(, J) : PRINT FC, J), 

530 NEXTI, J : CLOSE30 : END 

5SRUN ollo old A 


Módosítsa ] 64] -et úgy, hogy az egyes hónapok bolti adatai alkossanak rekord-okat: 


:k 


HI 


SNEW 
510 OPEN65, 1, 2, "FORGALOM" : FOR I-1 TO 3 : FOR J-1 TO 4 
520 INPUT "FORGALOM?" ; FCI, J) : S(J)-F(, JD) : NEXT J 
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ABC: 66 ] 540 FOR I-I TON : INUUT C(D, M XX 1) VIDD, EC), D X (1) : NEXTI 
kh 550 PREPARE "KESZLET" AS FILE 66 : FOR I-1 TON : PRINT:466, C(D; 
MET ÁŐT a EVE LEON, DLA 
67 ] 54 FORI-I TON: INPUTK X (D:NEXTIZ; 
HTZ: 66 ] 55Ó PRINTZ —1, C, M$, V, E, D$Z 
67 ] 55Ó PRINTZ — 1, K$ (1) : NEXT 
A program futásakor OS hibajel léphet fel (agép 5Ó byte-os string tárolója 
betelt). Bővebb tárolót RUN előtt CLEAR N foglal £ 
TEXAS: 66 ] OK, mint L.65 JE A program nagyon lassú z 
67 ] 55 PRINTt67 : K$ (D : : NEXT I : :Z 
PRIMO: 66 ] 55 CLEAR1000Ó£ 540 FOR I-1 TON : INPUT C(D, M$(D, VI, EC), 
D$( : NEXTZ 550 CREATE "KESZLET" : FOR I-1 TON : PRINTHC(1), 
M$O), VO), EC), D$(DX 
540 FOR I-II TON : INPUT K$() : NEXT 550 : PRINTHKKDZ 
Ellenőrzés betöltéssel f 
TV COM 66 ] OK, mint I 65 Jé Próbálja meg az adatbehívást és a rögzítést szétválasztani, 
így sok tárolóhelyet takarít megf 
VT—16: 66 ] 550 PRINT566, C, M$, V, E, D$É 


66/A ] Betöltéshez P66 módosítható: 540 OPEN "1", 66, "C : KESZLET" : 
FORI-I TONK 350 IINPUT366, A$ : PRINT A$Z Vegyes (numerikus és 
string adatok) rekord -ok tételes INPUT-ja hibás azonosításhoz vezethet Z 


E 525 PRINT365, S(1); CHRXKI13) S(2); CHRX13) S(3); CHRS 
(13) S(4); CHRXK13) 
530 NEXT I : CLOSE65 : END 
ke 5RUN oto -l4 a 


Irjon alkalmazási programot raktárkészlet (cikkszám, megnevezés, mennyiség, 


egységár, mértékegység) kazettára rögzítéséhez: 


a 2NEW 
510 INPUT "A TETELEK SZAMA" ; N 
530 PRINT "CIKKSZ, MEGNEV, MENNYI, EGYSEGAR, MERTEKE" 


: PRINT 
540 OPEN66§, 1, 2, "KESZLET" : FOR I-1 TON : INPUT C, MS, 
V, E, D3 
E 550 PRINT:t66, CCHRXI13) M$-CHRX13)V:CHRX13)E; 


CHRXI3) DS; CHRX13) 
560 NEXT : CLOSE66 : END 
x SRUN otto -[ld Aa 


AA — Egy raktári tétel (pl. anyag, szerszám, gép 
stb.) adatai rekord-ot képeznek. Igy az 
INPUT és PRINT$ nem adatokra, hanem 
rekord-okra vonatkoznak (egy kérdőjel itt 
5 adatot hív). Az adatok sorrendjét felirat- 
tal adjuk meg (230), hogy az adatbevitelt 
támogassuk. Az INPUT adatokat vesszővel 


elválasztjuk! 


Módosítsa a programot arra az esetre, amikor a rekord-ot karakter konstans- 
ként definiáljuk: 


220 DIM K$(N) 
535 PRINT " 8, . . . . . egz íg sós jat vEYEZERE Eva Ag Hogaset 
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55Ó PREPARE "KESZLET" AS FILE 67 : FOR I-I TON : PRINT3t67, 
K OC (Di 560 NEXTI: CLOSE67 : ENDXH A STRING URES KARAKTE- 


68 ] 510 OPEN "NEV" AS FILE IX 520 IINPUTSsI,A XÉ : PRINTA$4-36 
GOTO 20 3 5409 CLOSEI : ENDE A futás ERR34-el áll le a file betöltése utáni 


67 ] PI. CLEAR IDD pontosan IÓÓÓ byte tárolóhelyet biztosít a gép memó- 


68 ] 520 INPUTs$ —1, A$ : PRINT A$ : IF A$ - "VEGE" THEN END; 536 
GOTOZÓZ Haa file "VEGE" végjelet kapott rögzítéskor ésa file rekordjai 


NEM oldható meg. Hiányzik a GETH utasítás és kazettás egységre nem 
alkalmazható az ST-64-et helyettesítő EOF § 


510 OPEN "NEV" $ 5320 INPUT$A$ : PRINTA$;: — 530 GOTO2Ó 
kP4Ó CLOSE : ENDX AYfutás a file végén akad meg. RESET benyomásával 


[67] 520 DIM K$(N)"40£ 535 A karakterek száma adja mega string dimen- 
zióját P2Ó alatti 550 PRINT$5 : K$(D; " , " : NEXT : CLOSE OUTPUT : 
[68 52 GET3$5 : A$ : PRINT A$ ; : IF PEEK(2926) C5 0 THEN CLOSE 
INPUT : END£ 530 GOTO2ÓZ A gép 2926-os rekesze nullától eltérő értéket 
vesz fel, ha a file végére ér a betöltésnél 


ABC: 
REIT PONTOZZUK KIi 
HTZ: 
riájából £ 
string  -ekg 
TEXAS: 
PRIMO: 
állítjuk le £ 
TV COM: 
VT-—16: 67] OK: 
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68 ] 52Ó INPUT:368, A$ : PRINT A$X A betöltés nem karakter, hanem 
rekord-onként történik 530 IF NOT EOF(68) THEN 20 "EOF(68) FILE 
VEGE 240 CLOSEt68 : ENDE 550 [ENT[ 


540 OPEN67, 1, 2, "KESZLET" : FOR I-1 TON: INPUT K$(D 
550 PTINT:67, KKI), "," : NEXT : CLOSE67: END 
hi SRUN otto -[l4H Aa 


AA — A rekord elemeinek a karakterben való 
pontos elhelyezését felirattal és kipontozás- 
sal adjuk meg. Az input műveletnél az ada- 
tok lekopogása a "-okkal szinkronban tör- 
ténik és a megadott pozíciókra szorítkozik. 
A pozíciók számát előzetesen az adatok 
terjedelméhez igazítjuk. Szövegnél rövidíté- 
seket, adatnál magasabb dimenziókat vezet- 


hetünk be. pl: 


CIKKSZ MEGNEV MENNY EAR MEGYS 
ja . . . . . . 7 . . . . . . . . . . § . . . . . §§ . 4 . . . ak . . . . § 
123617 HORG AC HUZI684 124.3 KG 

032 A GET: utasítás és az ST alkalmazása. 


68 Irjon alkalmazási programot olyan adat file kazettáról való betöltésére, melynek 
a nevét ismeri, de szerkezetét és méretét nem (ez esetben az. INPUT3 utasítás 


hiányos lenne): 


x SNEW 
510 OPEN68, 1, 0, "NEV" 
B 520 GET368, A$ : PRINT AS; 


r- 


530 IF ST-) THEN GOTO 20 
540 IF ST-64 THEN CLOSE68 : END 
gy 550 PRINT "KAZETTA HIBA" : CLOSE68 : END 
SKOPOGJA LE A BETÖLTENDŐ FILE NEVÉT 510-BE 
PCSÉVÉLJE A SZALAGOT nk ELÉ: 
ak SRUN otto -Ííd a 


r1-- 
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ABC: Nem oldható meg, mert a file neveket a gép nem írja ki, csak összehason- 


lítja a keresett névvel és megy tovább, ha azonosságot nem talál f 


HTZ: Ha számokból álló file-okról van szó, akkor A$ helyett A, "VEGE" helyett 


0 végjel alkalmazandó 


OKf I Ar 


TEXAS: 69 ] NEM oldható meg, mert a file neveket a gép nem azonosítja; 


PRIMO: 69 ] ILOAD "EBEK" a programok címeit, a 310 OPEN "EBEK" : 
INPUTSAS : CLOSE £ -RUN pedig az adat-file-ok neveit jeleníti meg SKIP : 
NEV formábani "EBEK" helyett más, címként nem használt szó is állhat 3 


IV COM: 69] OKz 


VT—-16: 69 ] A megoldás közvetlen, eltérően a kazettás egység közvetett és lassú eljárásá- 


tól: SSYSTEM LENT ]Íg NAS€C:ILENTTE ICSDIRILENT[P 


Próbálja ki a :DIR/W parancsotf A megoldás UDOS-ban zajlik £ 


Visszatérés a BASIC-ba: ICSA : I LENT IE NA5 vrBaAsic I! [ENT E 
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AA — A GETfH utasítás egyesével tölti be a karak- 
tereket. A karakterek (betű, szám, szóköz 
stb.) egy string (A$) változóhoz kötődnek. 
A betöltést egy ciklus szabályozza, de a 
ciklus számát előre nem ismerjük. Ehhez 
nyújt támogatást a gép úgynevezett status 
(ST) paramétere. Ez a paraméter Ó-tól 
64-ig vesz fel értékeket. Ezek közül az ST-64 
a file végét, az ST-Ó a zavartalan betöltést és 
ÚÖSTGa64 valamilyen szalaghibát jelez. 

— A file karakterenként kerül a képernyőre. 
Itt kirajzolódik a rekord-ok összetétele. 
Néhány rekord megjelenése után ki tudjuk 
jelölni az INPUT$ paramétereket és a be- 
töltés az ismert módon elvégezhető (pl. 


64/A, B). 


Vizsgálja meg a program alkalmazásával a "NEVSOR", a "FORGALOM" 
és a "KESZLET" file-ok szerkezetét. 


Állapítsa meg egy kazettán található programok, illetve file-ok címeit: 


SZALAG BALRA CSÉVÉLVE: 
hi 5BLOAD "EBEK , 1, C RET 


AA — Ha "EBEK" című file nincs a kazettán, 
akkor a gép végigpergeti a szalagot és minden 
program, illetve adat file nevét képernyőre 


írja pl.: 


! FOUND Pld ! 
FOUND ATLAGOK 


— Ha a szalag megáll, újabb LOAD utasítással 
lökjük tovább. 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


70 ] Lemezegység nincsen rendszeresítve. Egyes feladatok a két kazettás egy- 
ség felhasználásával megoldhatók f 
71] NEMG 


a 


70 ) Lemezegység nincsen rendszeresítve. Egyes feladatokat a kazettás egység 
felhasználásával meg tud oldani § 
71] NEM Xg 


[71 ] f?HELYEZZEN BE EGY KÁRTYÁT (címke jobboldalon, len) £  5HE- 
LYEZZE BE A SZAMITÓGEÉBBE A "DISK MANAGER COMMAND MODULE" 
BLOKKOT F [1] és leütése után a képernyő vezeti az eljárástá YOUR 
CHOICE? kérdésre majd a válasz, MASTER DISK (1,3)?-ra 1£ 

TRACKS (Y/N)? kérdésre 40, 35 track felépítését kezdeményezi. 


[70] Töltse be kazettáról a CDOS periféria illesztő programot, ami 19 rekord- 
ból áll (a kazetta vásárolhatódf A gép "COMMODORE SERIAL BUS HAND- 
LER 1.0 (C) BME-KSZK, 1985" kiírásával nyugtázza a program működési 
készségéti [71] SCMDNEW "VARGA, 01" [RET IE CLOSE15 lekopogása 
szükségtelen f A CDOS a gép kikapcsolásakor törlődik f Több floppy bekapcso- 


A TV COM iker-floppy fejlesztés alatt áll  — Kapcsolja a floppy dugaszát 
(HANDLER) a gép fedelén nyitható, balról nézve az utolsó kapuba [70 ] OK; 
VT—16-on oldható meg, ha UDOS (16. B) helyett UPM V.2.1 operációs 


rendszer (8 B) kerül beolvasásrag A formázott lemezt az A, vagy B floppy-ba 


helyezhetjük (címke jobbra, lent) A jelen fejlettségi fokon a BASIC-ből nem 


VT-16: 


A géppel együtt bekapcsolg A baloldali egység azonosítója az A, a jobb- 
oldalié a Bg GÉP BEKAPCSOLÁSA; UDOS BEOLVASÁSA f A le- 
mez segédprogramokat is tárol. Listájuk : II ANSDIR I , vagy SDIRITW 


LENT JE Töltse be a FORMAT nevű programot: II A:YSFORMAT ILENT J 
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3. A LEMEZEGYSÉG KEZELÉSE, PROGRAMOZÁSA ÉS FELHASZNÁLÁSA 


Kapcsolja be rendre: 1. a televíziót, 2. a lemezegységet, 3. a számítógépet. 


AA — Ez a kapcsolási rend a készüléket védi az 
elektronikus sérülésektől. Szigorúan tartsa 
be. A kikapcsolás fordított (3., 2., 1.) 
rendet követ. 
— A lemezegység mágneses kártyákkal (disk) 
dolgozik. A kártya érzékeny  hajlításra, 
hőre, hidegre és mágneses hatásokra. A 
kazettávól eltérően, originál állapotban nem 
alkalmas adatok és programok tárolására, 


előtte formalizálni kell. 


033 A DISK formalizálása. TRACK, SECTOR és BLOCK. 
Formázzon meg egy mágneses lemezt: 


3HELYEZZEN BE EGY LEMEZT (CIMKE FENT, JOBBKÉZRE) 
A FLOPPY-BA ÉS ZÁRJA LE A FEDELÉT: 
5OPEN15.8,15, "NÖ : VARGA, 017 RET 


AA — A lemezen végzett művelet idején piros 
lámpa ég a floppy (meghajtó) elülső homlo- 
kán. Ha kialudt, akkor: 

5CLOSE 15 RET 
II READY [/ 
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ABC: 


HTZ: 


TEXAS: 


Igy 360, illetve 315 sector keletkezik, egyenként 256 BYTE kapacitással. A disk 


nevet kap (10 karakter hosszú), ami betűvel kezdődik £ 


PRIMO: 


TV COM: 


VT—-1l6: 


lása esetén az azonosítá -3CMD SETa utasítással történik (a-9,1Ó,..., 15) 4 A 8-as 


azonosítás technikailag megoldottf 


érhetünk el minden olyan szolgáltatást, amivel az iker-floppy potenciálisan 


rendelkezik f 


A képernyő vezeti tovább. Válaszai: [8] , [Y]. [3], 3 legye- 


nek az első próbánálg A lemez egyik vagy mindkét oldala formázható. Max. 
kapacitás 712 KBYTE 
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— A disk formázása abból áll, hogy a floppy 
írókarja 35 koncentrikus kört (track) és 
közöttük 683 cikket (sector) szerkeszt a 
lemezre (a legnagyobb sugarú körhöz 21, 
a legkisebbhez 17 sector tartozik). A track- 
ek és  sector-ok sorszámot (Il, ..., 35; 
Ó,1,..., 21) kapnak. A legnagyobb sector- 
sorszám 21. 

— A 18-as számú track a disk regisztere. Itt 
tartja számon a floppy a disk címét (pl. 
VARGA), azonosítási számát (pl. 01) és 
terhelési adatait (directory file). 

— Minden szector-ban 256 adat-byte és meg- 
határozott számú regiszter-byte található. 
A 256 adat-byte-ot block-nak nevezzük. 
Egy disk 664 block-ot hordoz. 

— A floppy 16 csatornával dolgozik (Ó,1,..., 15). 
A 15-ös csatorna kiemelt. Ezen továbbítjuk 
a floppy-nak szóló parancsokat. A floppy 
maga is számítógép, tehát bizonyos felada- 
tok önálló megoldására képes. 

— A floppy, mint eszköz a 8-as számmal azo- 
nosítható a rendszerben. Több floppy be- 
kapcsolása esetén a 8, 9,,...,15 azonosítók 
kerülnek bevezetésre. 

— A formalizáló utasítás (OPEN15,8,15) esze- 
rint megnyitja a 8-as floppy 15-ös csator- 
náját. Az első 15-ös itt is, mint a kazettás 
egységnél file azonosító (célszerűségi okok- 
ból mindig 15-nek választjuk). A meg- 
nyitást a parancs követi. A parancsot mindig 
karakteres formában kell megadni (NÉ: 
VARGA, 017). Ebben N a NEW szó kezdő- 
betűje, Ó az írókar , meghajtó,, motorjá- 
nak az indítója, VARGA a disk címe és 01 


az azonosítási száma. A név nem alapvetően 
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ABC: 


TEXAS: 


PRIMO: 


Két kazettás egységgel oldja megf SLOADCAS:PID(RETTE Atkap- 
csolás CA2-re 50UT58,16 [RETÍE  50UT58.24 [RETT: SKAZETTAT 
TESZ CAS2-BE$ SSAVE CAS :PIO [ RETJÉ A gép RESET gombjával vissza- 
kapcsol CAS1-re f 


NEME 


72 ] OLD CSIi SAVE"DSK1. Pip" ( ENT KA rögzítés helyességét a gép 
nem tudja ellenőrizni f 


72 ] ELOAD 7P1d"g 5CMD SAVE "P1d"$£ 5CMD TEST "PI": 


ko 
ae 


PIÓ pld erre vigyázzunk 


TV COM: 


VT—16: 
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5POKE 2821,5 : POKE 2829,5 : POKE 2823, 0 : POKE2831,0 [RET E 


Az első két utasítás a kazettás egységhez rendeli az 5-ös, a második kettő pedig a 
floppy-hoz a 6-os csatornátk SLOADi£5: "P1O" ([ RET [d SSAVEtt6: "PID" 


ÍRET Íg  SVERIFYst6: "P19" [ RETEE I READING A : P1p. CAS OK I 


hibátlan rögzítést jelezf A poke utasításokkal biztosított csatornák a gép kikap- 


csolásáig, illetve a kettős RESET Í -ig élnek. Nélkülük a floppy veszi a pa- 
rancsokat § 


[72 ]] SAVE "A : Pl" Az A floppy-ban lévő lemezre rögzíti a PIÓ 
programot £ SSAVE "A : P1g" , A ASC kódban rögzíti a PIO progra- 
moti SSAVE "B : P10" a B floppy-val dolgozik SSAVE "PIG", P 

ENT az A floppy-val dolgozik és listázásra hozzáférhetetlenné teszi a prog- 


ramot (P lopás elleni védelem)f A rögzítés ellenőrzése automatikus; 


fontos tartozék, tehát elhagyható, illetve 


ugyanaz a név akárhányszor felhasználható 


(pl. a lemezek a tulajdonos nevét viselik). 


A disk azonosítója viszont 


létfontosságú 


tartozék. Nélküle a lemez munkára nem 


fogható. A formázás megismétlésével rehabi- 


litálhatjuk. Célszerű lemezeinknek a 


01....99 azonosítókat adni. 


— Valamely csatorna megnyitása egyben file 


megnyitását és a floppy adminisztrációban 


block foglalást jelent, feltéve hogy lezárási 


(CLOSE) parancsot is adtunk. A CLOSE 


parancs elmaradása esetén munkánk kárba 


vész. 


— A megformázott disk programok és adatok 


fogadására kész. 


034 Program rögzítése DISK-re. SAVE és VERIFY utasítások. 


72 Töltse be kazettáról a P1Ó-es programot. Rögzítse mágneslemezre a P1IÓ-es progra- 


mot és ellenőrizze a rögzítés pontosságát: 


B 


53LOAD "PI", I, C 
II READY II 

5SAVE "PIÓ", 8 

! SAVING FOR Pld ! 


READY 


5SVERIFY 7P197, 8 


RET 


TS 


ABC: 73] CAS2-ről ugyanúgy kérdez le mint a CAS1-ről f 
A kazetták közötti átkapcsolás címkézett utasítással is megoldható: 
CAS2-re 510 0UTS8,16 : OUT 58.243 
CASI-re 510 0UTS80 :OUT 5883 
HTZ: 73] NEME 
TEXAS: SOLD "DSK1.P10"[ ENT [£ Több(£ 3) floppy esetén DSK1; DSK2; 
DSK3 vagy "DSK. DISZKNEV. PROGRAMNEV" hivatkozás is lehetséges f 
PRIMO: 5CMD LOAD "P1O" 
TV COM: SLOADit6 : "PI": Tegye át a lemezt a B floppy-ba és SLOADH6 : 
"B:PlI0" utasítással próbálkozzék £ 
VT—16: 5LOAD "A : P1p" vagy JLOAD "P10" [ ENT JÉ HaszLOAD 
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"P1O",R utasítást adunk, akkor a betöltés után a program futása is 
elkezdődik § Védett programok a fentiekhez hasonlóan tölthetők be, de a 
LIST-re "ILLEGAL FUNCTION CALL" hibajellel válaszolnaki Védett pProg- 


ramhoz a készítő sem férhet hozzá, ezért nem védett másolatot is rögzítsen fg 


SEARCHING FOR P1l0 
VERIFYING 

OK 

READY 


NYISSON EGY KARTONT A 01-ES DISK SZÁMÁVAL ÉS 
JEGYEZZE FEL A TÁROLT PROGRAM CIMÉT: 

PIRJA FEL CIMKÉRE A DISK AZONOSÍTÁSI SZÁMÁT ÉS RA- 
GASSZA FEL A DISKRE (csak gyári, öntapadó címkét használjon): 


AA — A SAVE és VERIFY utasítások csak az esz- 
köz fizikai számában (1 helyett 8) térnek el 

a kazettás egység megfelelő utasításaitól. 

— Több floppy esetén a 8-at a rögzítést végző 

floppy azonosítási számával helyettesítjük. 

Gyárilag minden floppy 8-as. Átállítása 

fizikai és programozási eszközökkel is meg- 

oldható. A fizikai megoldás technikus 


feladata. 


035 Lekérdezés a DISK-ről. A LOAD utasítás. 


73 Kérdezzelea Ól disk -ről a PIÓ programot és futtassa: 


[des 3LOAD "P10", 8 RET 
I! READY II 
ki DLIST : RET 
I READY II 
§ 5SRUN 


ABC: 


74 ] SAVE "DSKI. P1Ó" utasítást a gép elfogadja és felülírja a PI programot. 
A block-kok foglaltsága névre szól 


5CMD SAVE "P19" ÍRETIZ 63, FILE EXISTS, 00, 09 Ila gép vá- 


lasza (Már létezik ilyen című file a lemezen)$ A floppy nem villogtat, ha mégis, 
akkor 9CMD RESET : CMD CLEAR állítja helyre a floppy murika- 


DSAVEtt6: "P1O" felülírja a korábban rögzített PIO programot i 


74] NEM; 
HTZ: NEM; 
TEXAS: 
PRIMO: 
készségét ; 
TV COM: 
VT—16: 


116 


A név nem védi a programot. SAVE "Pld" felülírásra vezet, ha PID című 
program már van a lemezenf Felülírás ellen sem az A, sem a P nem nyújt 
védelmetf A címet 40 karakterig azonosítja a gép, feltéve hogy hosszú címeket 
adunk. Egyetlen eltérés elég ahhoz, hogy új programként rögzítse és ne felül- 


írja a hasonló címet 3 


AA — A floppy veszi a gép LOAD parancsát. 
Kikeresi regiszteréből a .helyfoglalás adatait, 
majd olvasó (egyben író) karja aktiválja 
adja át. LIST utasítással a képernyőn is 
megjeleníthető. Futtatása nem függ attól, 
hogy képernyőre kiírattuk-e. Ha a LOAD 
utasításbpan megadott cím az adott disk-en 
nem található "FILE NOT FOUND" szö- 
vegű jelzést kapunk. 

— Ha a LOAD utasításból a 8-as kimarad, a 
gép a kazettás egységre vonatkozó parancs- 
nak fogja fel és "PRESS PLAY ON TAPE" 


felhívással él. A I RUN/STOP I gomb leüté- 


se után a LOAD parancs megismételhető. 


Módosítsa a P1O adatait és rögzítse ismét PIÓ címmel a Ó 1 disk-en: 


[d6s 


SSAVE "P10"7, 8 


II "FILE OPEN ERROR l! 


AA — A floppy piros lámpája villogásával tilta- 
kozik a már tárolt cím ismételt alkalmazása 
ellen és nem hajtja végre a parancsot. Meg- 


nyugtatása az alábbi parancsokkal történik: 


5OPEN15,8,15 "107 RET 


2C€LOSE15 


74/B ] JCMD SAVE "É :P10" [RET Iz 


SHELYEZZE BE A SZÁMITÓGÉBBE A "DISK MANAGER COMMAND 
MODULE" BLOCK-KOT. Üsse le a DISK MANAGER , majd DISK 
COMMANDS? és végül a MASTER DISK? [1 ] kódokat, mire a disk ka- 


SCMDLOAD "$" [ RET ÍZ A disk címlistáját a ismételt leütésé- 


NEM; A disk tartalomjegyzékét magunknak kell vezetni Z Az operációs 


ABC: NEM; 
HTZ: NEME 
TEXAS: 

talógus megjelenik a képernyőn f 
PRIMO: 

vel hívjuk a képernyőre £ 
TV COM: 

rendszer fejlesztési stádiumban van f 
VT-1l6: 
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74/B [ SAVE " € : Pip" rögzítési parancs is működik £ 
DFILES "A :" vagy csak SFILES ha a lemez az A 


floppy-ban fekszik FILES "B :" a B floppy-ra érvényes Xg 


— A floppy alapállását elérve kezdeményez- 
hetjük a módosított program rögzítését, 


elhatározástól függő módokon: 


JA? 5SSAVE 7P1IÓ/JA "7, 8 


/B" DSAVE " 20 :PIb7", 8 


— Az A esetben a módosított programot új- 
nak ítéli a floppy és rögzítését a PIÓ prog- 
ram érintetlen meghagyásával, szabad block- 
on oldja meg. A két program külön-külön 
lekérdezhető. 

— A B esetben megkeresi a floppy a PlÓ 
programot és felülírja. Ezzel az eredeti PIÓ 
program elveszik. A felülírást a (2 jellel 
kell kérni. A szándékos felülírást tehát elfo- 
gadja a floppy, de a tárolt program védelmet 


élvez. 


Állapítsa meg egy disk-en található programok neveit: 


[dE " 5LOAD "8", 8 RET 
II READY II 
ji 5LIST 
Í VARGA pi ] 
I Pl PRG 
j P1Ó/A PRG 
662 BLOCKS FREE 
READY 
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ABC: 


HTZ: — 

TEXAS: Az [1] gomb lenyomásával leállítható a katalógus listázása f A disk katalógus: 
sal kapcsolatos fogalmak : MASTER-gazda; DISKNAME-kártyanév; SIZE-terje- 
delem; AVAILABLE-felhasználható; USED-felhasznált ir 

PRIMO: A disk hiányát I74, DRIVE NOT READY, 00, 00 II jelzi 

TV COM: AXdisk hiányát a ISYSTEM ERROR 254. I jelzi f 

VT—-16: A ] CTRLI NUMILOCK I] leütésével megszakíthatjuk a listázást, de bármelyik ka- 
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rakter leütésekor a listázás folytatódik £ 


A floppy-ra vonatkozó programokat írja át wfloppy-ra is és dolgozzon velük f 


VAVYAN — A parancs lemeztől független. A $ jel a 
directory file neve. A képernyőn egy fejléc, 
alatta 3 oszlopos információ jelenik meg. 
Az első oszlop a programok helyfoglalását 
(blockszám), a második a nevét, a harma- 
dik pedig a jellegét (PRG-—program) közli. 
Az utolsó sorban a még szabad block-ok 
száma jelenik meg. 


— Ha a lista túllépi a képernyő méretét, akkor 


a ! RUN/STOP Ígomb leütésével a kívánt 
helyen megállítható, vagy af CTRLI gomb 


lenyomásával a kiírás lassítható. Ha lista 
helyett a vörös lámpa villogása a válasz, 
akkor valamilyen hiba áll fenn: 

1. nincsen disk a floppy-ban, 

2. hibásan kopogtuk le a LOAD "79", 

8-at, 

3. a vizsgált disk "sérült" stb. 
Az első két eset szemmel eldönthető. A 
harmadik eset a LOAD "$7, 8 utasítás 
megismétlésével válhat bizonyossá. Ezt meg- 
előzően ÍRUN/STOP hal leállítjuk a floppy-t, 
majd a vörös villogást is megszüntetjük. A 
hibásnak mutatkozó lemezt ismételt formali- 
zálással próbáljuk rehabilitálni. Ez viszont a 
tárolt program törlésével jár. 

— A lemezhibák gyakori oka, hogy a disk a 
floppy-ban reked a rendszer kikapcsolása 
idejére, vagy a bekapcsolás előtt becsúz- 
tatjuk a használni kívánt lemezt. Hibás 
gyakorlat, ha a vörös lámpa villogását a 


floppy ki-be kapcsolásával hárítjuk el. 


Folytassa a munkát a feladatnál. Rögzítse a 01 disk-en a további 


programokat. Erre a programok alatt megjelenő CLl3H jel figyelmezteti! ! ! 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


OK: Minden futásnál ugyanazokat a véletlen számokat kapjuk f 515 
RANDOMIZE esetén a számok futásonként változnak f Végjelet is írhatunk a 
file-hoz 545 PRINT:t76, 100 


530 PRINT3 —1, "LOTTO"X 5340 :PRINTH —1, L(ID) : NEXT : 550 
PRINTS£ —1, "VEGE" : END£ "VEGE" helyett valamilyen szám, pl. 100 
is lehet végjel. Célszerű ugyanazt a végjelet használni, hogy ne tévesszünk 


520 L(D-INT (I:kRND90)::£ 530 OPEN76 : "DSK1.LOTTO", 
SEGUENTIAL, OUTPUT, VARIABLE 5 £ 240 ::PRINTf£76 : L(I) :: § 
VARIABLES azt jelzi, hogy a rekord-ok hossza változó, de legfeljebb 5 byteg 


530 CMD CREATE 5, "LOTTO" 3 File megnyitásat 240 FOR I-1 TO 5 : 
CMD PRINTSé5, L(I) : NEXTÉ 550 CMD CLOSES : END Z A rögzítési utasí- 


tásokat a csatornaszám (5) kapcsolja össze X 


[76 ] 55 DIM L(5) : RANDOMIZEk 530 OPEN3t6 : OUTPUT "LOTTO"i 
546 : PRINT$6:L(D:X 2550 CLOSE$6:OUTPUT : END Próbálja meg a prog- 
ramot adatfile-ként (ASC kódban) rögzíteniz 3POPEN:t6 : OUTPUT "P76" : 
LLISTit6 :: CLOSEi6 : OUTPUT ÍRET I 


VT—1l6: 


[76] 520 L() - INT (1: RND (1) " 90) : PRINT LO); : NEXTE 530 OPEN 
"VO", 176, "LOTTO"X  "O7" OUTPUT-ra, tehát rögzítésre való megnyitást 
jelenté 2540 FOR [-I TO 5 : WRITE76, L(I) : NEXTZ WRITE-íri 550 
CLOSE$76i Wfloppy-ra OK 
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036 ADATFILE soros (SEG) rögzítése disk-en. Az RND(0) függvény használata. 


Irjon lottó programot. Végezzen húzást (5 véletlen szám 1—90-ig), majd írja fel a 


számokat rendre (szekvenciálisan) egy disk-re: 


ke 5SNEW 
510 FOR I-1 TO 5 : REM LEMEZ A PLOPPY-ban? 
520 L(D-INT(1:RND(0) 99) : PRINT L(1); : NEXT 
530 OPEN76,8,5,"0 : LOTTOSW" 


[d hö 540 FOR I-1 TO 5 : PRINT76, IX1) : NEXT 
550 CLOSE76 : END 
új SRUN — -[-] A 
FAVAN — A lottóhúzás 90 számra alkalmazott, véletlen 


mintavétel. Az RND (0) függvény egyenletes 


elosztású! ? 


véletlen számokat generál a 
(Ó;1) intervallumból. Ezeket a számokat az 
14RND($)T9Ó összefüggés az [1;91) inter- 
vallumba transzformálja. (Általános alakja 
A:RND()"(B—A), ha (A B) intervallumról 
van szó). Egészértéket képezve, a heti 
lottó számok állnak elő (tekintsünk el a 
számok esetleges egyezésétől). 

— Szekvenciális (soros) rögzítés rekord-ok 
olyan felírását jelenti, ahol a k-adik rekord 
a k—l-ediket követi és hozzáférni csak 
k—l] rekord elolvasása után lehetséges. 
Olyan adathalmaz rögzítésére alkalmas, 
amelyet gyakran lekérdeznek és a használat- 
kor minden rekord-ra szükség van, miköz- 
ben legfeljebb a file terjedelme változik 
(hozzáírnak). 


Sai Farkas Miklós (szerk) : Matematikai kislexikon. MK. Budapest, 1974. 
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77) 519 OPEN "LOTTO" AS FILE 773 5119 PREPARE "LOTTO" AS 
FILE 77X Eredeti területén az nx pontos beállításával rögzíthetjük. 285 STOP 


Kazettás egységekkel OKf Az eredeti területen való rögzítés csak akkor 


77] 510 OPEN$TT : "DSK1. LOTTO7, SEOUENTIAL, INPUT, VARIABLE 
5x 520 : : INPUT$T7T : K(J) : : ; 53110 OPEN$77 : "DSK1. LOTTO", OUT- 
PUT, VARIABLEX SEGUENTIAL deklarálása elmaradhat VARIABLE max. 


80 byte-os rekord-okra építy Az adatfile névazonosság esetén felülíródik, vé- 


510 CMD OPEN 3, "LOTTO"i 520 FOR J-1 TO 5 : CMD INPUTS3, 
K(D) : M (J) - K (5) : NEXT : CMD CLOSE3; 5110 CMD CREATEG6, " É : 
LOTTO"£ 2120 FOR P-I TO 5 : CMD PRINT:6, M(P) : NEXT Z 5130 CMD 


55 DIM K(5), M(5) 3 510 OPEN£6 : INPUT "LOTTO" § 520 INPUT36 
:K(D) : : CLOSEst6 : INPUT gy 5110 OPEN36 : OUTPUT "LOTTO"3 5120 
: PRINT$6 : M(P) :X 5130 CLOSE$6 : OUTPUT : ENDX Az adatfile nem 


ABC: 

lehetővé teszi a beállítást £ 
HTZ: 

megy, ha 582 PRINT M(I) : STOP alatt visszacsévélünk 
TEXAS: 

delme megoldatlan £ 
PRIMO: 

CLOSE6 : END? Az adat file felülírható az É alkalmazásával £ 
TV COM: 

védett, azonos címmel felülírható a lemezen f 
VT—-16: 


Éz] 510 OPEN "T" , 477, "LOTTO" 3 "I" INPUT-ra, tehát betöltésre való 
megnyitást jelenti 520 : CLOSE77 vagy CLOSE$77£ 53110—53130 mint 
[76] alatt§ A szekvenciális filet nem védi a neve az azonos nevű felülírástól £ 
Wfloppy-ra OK £ 
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087 


— A file szekvenciális rögzítése az OPEN-— 
PRINT$—CLOSE utasításokra épül. Mind- 
három utasításban szerepel a file száma 
(pl. 76). Az OPEN utasítás rögzíti a floppy 
azonosítóját (8), a munkához lekötött 
csatorna (5) számát, az írókar (Ó) meghaj- 
tóját, a file (LOTTO) nevét, a rögzítés (SEO) 
típusát és azt, hogy rögzítésről (WRITE-ir) 
van szó. A PRINT$ a rögzítésre kerülő 
adatok azonosító (L(I)) változóit foglalja 
magában. A CLOSE utasítás lezárja a file-t, 
ezzel területe védetté válik. A CLOSE 


elhagyása a file elvesztését jelenti. 


Szekvenciális file betöltése disk-ről. Számsor rendezése. 


Töltse be a "LOTTO" nevű file-t. Rendezze a számokat növekvő sorrendbe, majd 


rögzítse a rendezett file-t eredeti területén: 


ká 3NEW 
510 OPEN77,8,3, "0 : LOTTO, S, R" 
[d- 520 FOR J-I TO 5 : INPUT$77, K(J) : M(J)9-K(J) : NEXT : CLOSE77 


550 FOR I-1 TO 4 : FOR J-k1 TO 5 


Tr 560 IF M(I..GM(J) THEN 80 
ő 4 570 S-M() : M(DD-M(J) : M(J)-S 
4 S8ÓNEXTJ 
581 PRINT M(D); : NEXT I 
582 PRINT M(I) 
y 590 PRINT "A RENDEZETT FILET ROGZITJUK" 
5110 OPEN77,8,6, " 00 : LOTTO, SW" 
[/dE zás 5120 FOR P-1 TO 5 : PRINT:377, M(P) : NEXT 
v 5130 CLOSE77 : END 
€ SRUN  -[d A 
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ABC: 


HTZ: 78 ] A rekord-ok a bemutatásra kerülő P77 programnál csak 1—1 adatot tar- 
talmaznak £ Feltesszük, hogy ] 76 I -ban 550 PRINTÁ —1I, 100 végjelet alkal- 


maznak Z Többtagú rekordok esetén többtagú végjelre gondoljunk 


TEXAS: — 


PRIMO: — 


TV COM: Helyezze át a floppy dugaszát a balszélső kapuba. A csatornák hozzárendelését 
most a 2POKE 2821,5 : POKE 2829,5 : POKE 2823, 3 : POKE 2831,3 utasí- 
tások látják elf Az utolsó két rekesz tartalma kapunként 1-gyel nő 3 
[RESET IE Próbálja meg ASC kódban rögzített program betöltésétszOPENít6 
: INPUT "P76" : POKE2818,6 [RET]ÍE  HOK OK IXSCLOSE£6 : INPUT 


ÍRET Iz 


VT—16: — 
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AA — A szekvenciális file betöltése az OPEN— 
INPUT$—-CLOSE utasításokra épül. A rögzí- 
tésnél alkalmazott utasítás-hármastól két 
helyen találunk eltérést. Az OPEN utasítás- 
ban a W helyett R (READ-olvas) szerepel 
és a PRINTZ helyére INPUT$-ot helyette- 
sítettünk. 

— A programozónak nem kell emlékeznie a 
file rögzítésénél alkalmazott file számra, 
a használt csatornára, a ciklus indexére 
és az adatok változóira. Ezek a betöltésnél 
szabadon választhatók. A file nevét és a 
rekord-ok összetételét (adatszám, típus) 
viszont ismerni kell. A rekord-ok számának 
az ismerete kellemes, mert akkor ciklussal 
tölthető be. Ennek hiányában az ST meg- 
figyelésére vagyunk utalva. 

— A számok rendezése párok összehasonlí- 
tására (M(IYD.XM(J) ?) és a tagok helycseréire 
épül. Ez utóbbit az S segédváltozó (270) 
közvetíti. 

— A floppy védi a disk-en rögzített file-okat. 
Egy disk nem fogad azonos nevű file-okat. 
Az ilyen rögzítési kísérlet csak akkor sike- 
res, ha a file név elé felülíró 2 jelet illesz- 
tünk. Ekkor viszont az eredeti file felülíró- 


dik, tehát eltűnik. 
Az ST használata adatfile-ok betöltésénél. 


Módosítsa a programot arra az esetre, ha az adatok (rekord-ok) számát nem 


ismerjük : 


520 INPUTST77, L : K-Ks1 : M (K)-L : IF L-1009 THEN 30 ELSE 20 
Xx Ezt akkor alkalmazhatjuk. ha végjelet (itt IÓÓ) rögzítettünk a file végére X 
A gép saját végjelet generál a file végére. 


78 ] 520 INPUT$ —-I, L : K-K51 : M(K-L:IF LC5 1099 THEN 20 £ 530 
REM A RENDEZÉS K 550 FOR 1-1 TO K-I : FOR J-k4k1 TOK; 5129 FOR 


79] Ha ] 76 J-nál nem alkalmazunk végjelet. a bővítés nem oldható meg a jel- 


78] 520 :IF EOF(77)-p THEN 20 £ EOF(77)-I, ha a file utolsó rekord-ját 


79 ] OLD DSKI. P76f 530 OPEN$76 : "DSK1. LOTTO", SEOUENTIAL, 


52Ó CMD INPUTSB3, L : K-Kr1 : M(K)-L : IF NOT EOF(3) THEN 20 
4 530 CMDCLOSE3X 53120 FOR P-I TO K : CMD PRINT36, M(P) : NEXT 
X END OF FILE-vége a file-nak £  EOF(3) vége a 3-as csatornán megnyitott 
file-nak f 530 CMD CONTS, "LOTTO" 4 


[78] Ha csatorna hozzárendelésünk (POKE) elmarad, a floppy a kazettás 
egység utasításaira reagál 520 INPUTS$S : L : K-K-1 : M(K)-L : GET5 : X$ 
: S- PEEK (2926) : IF S20 THEN GOTO 30 : ELSE 2Ó£ 530 CLOSE£$S : 
INPUT § A GET$5 A rekord elválasztókat köti le £ 


ABC: 
HTZ: 
P-I TOK : g 
zett módon § 
TEXAS: 
beolvasta a gép (előtte EOF(77)-0) 
APPEND, VARIABLE 5 £ 
PRIOMO: 
TV COM: 
VT—-16: 
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529 : IF NOT EOF(77) THEN 20 £ 5120 : WRITEs77, M(P) : § END OF 
FILE-vége a file-nak X EOF(77) vége a 77-es logikai számú file-nekf Próbálja 
meg az IF EOF(77)-9 THEN 20 utasítást használni £ Wfloppy-raOK £ 

530 OPEN "A", 476, "LOTTO7£ "A" APPEND-csatoli 530 OPEN 
DAP, 376, "C : LOTTOT OK 


5 5 DIM MC55) 
5 20 INPUTS77, L : K-Ks1 : M(K)-L : IF ST C 64 THEN 20 
5 30 CLOSE77 
550 FORI-1 TOK—1 : FOR J-I 1 TOK 
5120 FOR P-1 TO K : PRINT3H77, MCP) : NEXT 

x SRUN -[4d A 


AA — A rekord-ok számát nem ismerve a FOR— 
NEXT ciklusos beolvasásról le kell mondani. 
A ciklust most az STWx64 kezdeményezi 
és a GOTO 20 (THEN 28) ismételteti. 
Mivel a számhailmaz rendezéséhez indexelt 
azonosítókat használunk, a betöltött adatok- 
nak idexet kell adni (K-Kr1 : M(K)—L.) 
A rendező és rögzítő ciklusok számát a K 
utolsó értéke adja meg 2520-ban, de ehhez 
csak a program futása közben férünk hozzá. 
Ezért szerepel 550 és 5120-ban K. A 
DIM utasításraraz M tömb miatt van szük- 
ség. Mivel dimenzió vissza nem datálható, 
(pl. 220-ból 55-be), a szóbajöhető legmaga- 
sabb dimenzió számot (255) adtuk M-nek. 


File-ok bővítése (APPEND). 


Töltse be disk-rőla  P76-ot és futtassa újra. Az új számokat rögzítse a "LOTTO" 
nevű file bővítményeként: 


" 5SLOAD "P76", 8 
x 5DLIST 
PMODOSITSA A 530 UTASITÁST: 
530 OPEN76,8,5, "b : LOTTO, S, A" 
. 5RUN . -[d Aa 
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ABC: A bővítés nem oldható meg a jelzett módon ; Ha betölti a meglévő file-t 
és kiegészíti újabb számokkal, rögzítve bővített file-t nyer A 
NEM? 

HTZ: Ha betölti a meglévő file-t és kiegészíti újabb számokkal, rögzítve bővített 
file-t nyer 
NEM? 

TEXAS: 540 OPENit66 : "DSK1. KESZLET", OUTPUT : : ; SEGUENTIAL ÉS 
VARIABLE a megnyitásnál elmaradhat, a pár automatikusan érvényesül X 
550 PRINTs66 : CG? , PG MS; DÖG GE," ;DS3 

PRIMO: 80 ] 540 CMD CREATE 2, "E : KESZLET" : f 550 CMD PRINT73f2, C, M$, 
V,E,D$Z 560 NEXT : CMDCLOSE2 : £ 

TV COM: NEM; 

80 ] ELOAD$5:"P66" Í[RET Íx 540 OPEN$5 : OUTPUT "KESZLET" 

3 550 PRINTÉS5 : CG, GMT GGV, ;E;7,";DÉ 56ÓNEXT 
: CLOSE$5 : OUTPUT : END f HA 550 alatt D$ ; " , " végződés szerepel, a 
gép elfogadja ; 

VT—16: 540 OPEN "0" , 1466, "KESZLET" :£ 550 WRITE 66, C, MÉ, V, E, 


D$x 8 


130 


1 


AA — Adatfile-ok bővíthetők. Bővítés esetén az 
OPEN utasításban a W jel helyett az A A 
(APPEND-hozzáfűz) kezdőbetű szerepel. A 
hozzáfűzés mint eljárás fontos lehetőség. 
Nagytömegű adatot célszerű részletekben 
felvinni a gépbe és a disk-re. Bizonyos adat- 
együttesek időről-időre reprodukálódnak és a 
kumulálódó adattömeget ugyanabban a file- 
ban tartjuk nyilván. Nyilvántartások állan- 
dóan változnak, belső tartalmuk módosul- 


hat, méretük is kiterjedhet. 


Olvassa be disk-ről a P66 programot. Módosítsa oly módon, hogy a raktárkészle- 


tet disk-en rögzíthesse: 


ke SLOAD "P66GB RET 
x SLIST 


10 INPUT "A TETELEK SZAMA"; N 

30 PRINT "CIKKSZ, MEGNEV, MENNYI, EGYSEGA, 
MERTEKE" : PRINT 

40 OPEN66,1,2, "KESZLET" : FOR I-1 TO N: INPUT C, M3, 
V, E, D$ 

50 PRINT:$66, C; CHRS(13) M$: CHR$(I3)V ; CHR 
$(13)E; CHR$(13) D$; CHR$(13) 

60 NEXT : CLOSE66 : END 


540 OPEN66.8,2, "0 : KESZLET, S, W" : FOR 
ai SRUN  -[í4d A 


Vigyen fel adatfile-okat disk-re. Változtassa a rekord összetételét. 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT—-16: 
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81 ] Ha rögzítésnél PRINT366, 0, "M", 0, 0, "D" végjelet alkalmazunk, akkor 
53Ó1FCCa5 0 THEN 20 megoldással OK § 
82 ] Lásd P66-os megoldást £ 


81 ] Ha rögzítésnél PRINTS —1,-0, "M", 0, 0, "D"7 végjelet alkalmazunk, 
akkor 530 IF C 5 0 THEN 20 megoldással OK 


Lásd P66-os megoldást £ 


510 OPENA81 : "DSK1. KESZLET", INPUT$ 520 :: PRINT C; M$ ; 
V;5E;D$X$ 530 IF EOF(81) THEN 20 A feltétel teljesül, ha EOF(81)-0, 
ELSE ha EOF(81) 9. 


A törlésnek nincs alapja £ 


510 CMDOPEN 10, "KESZLET"$ 520 CMD INPUTSI10, C, M$, V, E, 
D$ét 530 IF NOT EOF(10) THEN 20 
82 ] P66 miatt hiba nem merül fel f 


519 OPEN$5 : INPUT "KESZLET" $ 520 INPUTS5 : C, M$, V, E, D$ : 
PRINT C, M$, V, E, D$ : GET45 : X$$ 530 -PEEK (2926) : IF S2Ó THEN 
40 : ELSE 20 540 CLOSE45 : INPUT : END § 


OK: 


510 OPEN "I", 81, "KESZLET"$ 530 IF NOT EOF(81) THEN GOTO 
204 Próbálja ki az alábbi formát: 510 OPEN 717, 3481, "KESZLET" : WHILE 
NOT EOF(81)X 530 WENDX A WHILE—WEND ciklusszervező utasítás k Pró- 
bálja ki 220 INPUT81, R$ : PRINT R$ utasítást £ 


[82] NEM? 


Írjon betöltő programot a [80 ] -nal rögzített file-ra, ha a rekord-ok számát nem 


ismeri: 
§ 23NEW 
5109 OPEN81,8,10 "0 : KESZLET", S, R" 
beles 520 INPUTS81, C, M$, V, E, D$ : PRINT C, M$, V, E; D$ 
iz 530 IFST €564 THEN GOTO 29 
540 CLOSE 81 : END 
x SRUN  -[d 0 A . 
FAVAN — Sikeres betöltés után vörös lámpa világít 
a floppy-n és a kurzor nem látható. Ennek 
az az oka, hogy a program 550 
utasítása CHR$(13)-al zárul, ami RETURN 
(visszatérés) végjelet biztosít a rögzített 
file-nak. Igy . minden betöltési ciklus ST 
ax 2564-el végződik, vagyis a floppy végtelen 
ciklusba esik a file betöltése után. 
2VEGYE KI A DISKET A FLOPPYBÓL : 
GÉP OUT : GÉP ON : DISK VISSZA : 
182 Töltse be a P8BÓ programot, törölje a 350 utasításból az utolsó CHR$(13)-at, majd 
futassa: 
jú 5LOAD "PSO8 HNNN 
Hi 5LIST 
550 PRINTé66, C; CHR$(13) M$: CHR$(I2)V; CHR$ 
(13)E; CHR$(13) D$ 
x SRUN  -ld A 
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ABC: 83 ] A nyilvántartás minden bővítésénél a végjelet változtatni kell, hogy az 
újabb betöltés sikeres legyenZ Betöltés előtt 521-et aktualizálni kell f A 3470 
miatt a C-0 NEM alkalmas végjelé 

HTZ: 83 ] A nyilvántartás minden bővítésénél a végjelet változtatni kell, hogy 
az újabb betöltés sikeres legyen Ujabb betöltés előtt 521-et módosítani kell 
az aktuális végjelreg A 5470 miatt a C-) NEM alkalmas a végjelben f; 

TEXAS: 83 ] 512 OPENZ83 : "DSKI. KESZLET", INPUT$ 5315 INPUT383 : CI, 
MI$, VI, El, D1$ :: I-Ir1Z €C és C(I) nem fér meg egy programban, de CI és 
C(D igenf 516 C(D-CI :: M$(1D-MI$ stb... £ 5210 :: IF V(ID..K THEN 215 
ELSE 220£ 3215 PRINT C(1) ; M$() ; V(D) ; E(D) ; D$(D É 

PRIMO: OKX SCLEAR N utasítás a RUN előtt direkt formában, illetve program 
utasításként is beadható. Az utoljára beadott kapacitás foglalás élf A NEW 
nem törli a helyfoglalást 

TV COM: 515 INPUT£5 : CI, MIS, VI, El, DI$ : GETÉS : X$ : I-r1£ 516 
C(D-CI1 : M$(1)-MI$ stb.£ 5321 S-PEEK (2926) : IF SZÓ THEN 25 : ELSE 
15$£ 5120 PRINT "KESZLETERTEK - " ; S ; "FT" : £ 5201 INPUTPROMPT 
"KORLAT?" :K : X C és C(I) nem fér meg egy programban £ 

VT—-16: 83 ] 512 OPEN 71", 483, "KESZLET": WHILE NOT EOF(83) ; 521 WEND £ 


WFLOPPY515 miatt nem OKf P67 szellemében át kell írni az egész programot? 
A vizsgálatokhoz MID$ és VAL függvényekkel választjuk le a megfelelő adato- 


kat Z Törlés esetén az üres ( " "") string-et rögzítjük stb. É 
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040 Adatfile-ok gyakorlati felhasználása. 


83 Irjon alkalmazói programot a P82-vel rögzített készlet file kezelésére az alábbiak 


szerint: 


1. A raktárkészlet értékének a kiszámítására, 

2. Adott "k" korlát alatti készletek kilistázására, 

3. A nyilvántartás "w" számú cikkel való bővítésére, 

4. A 00—40-nel végződő cikkszámok rekordjainak a törlésére, 


5. Az eredmény file visszarögzítésére. 


1 SNEW 
510 PRINT "A KESZLET FILE BETOLTESE" : PRINT 
511 DIM C(255), M$(255), V(255), E(255), D$(255) 
512 OPEN83.8,12, 70 : KESZLET, S, R7 
515 INPUT$83, C, M$, V, E, D$ : 7-1 
516 C(D-C:M$(D-M$ : V(D-V : E(D-E : D$(1)-D$ 
520 PRINT C(I1), M$(I), VII), Ed) ; D$(1) 
521 IFST C564 THEN 15 
525 CLOSE83 : N-I 


5100 PRINT "A RAKTARKESZLET ERTEKSZAMITASA" 

: PRINT : PRINT Ő ts see egek e ak ak de ők ok ok sk ae ak ak ak sk koko 
2110 FOR I-II TON : S-S- V(I) " E(I) : NEXT 
5120 PRINT "KESZLETERTEK -"S "FT" : PRINT 


5200 PRINT "A KORLAT ALATTI CIKKEK JEGYZEKE" 

: PRINT: PRINT Őt egek s ks kk kk KT 
5201 INPUT "A MEGADOTT KORLAT?";K : PRINT 
5210 FOR [I-1 TON : IF V(I) CK THEN PRINT C(1), M$(D, 


V(D, EC); D$0) : PRINT 
5220 NEXT : PRINT 8 ese sk skeet ak sk se ka ae e de of ak ak osk sk oak ok sk 


kk KI 


ABC: — 


HTZ: 83] A 5465-öt töröljük X 


TEXAS: 83 ] 5401 DIM 0(255)X 5465 OPEN 483 : "DSK1. KESZLET", OUTPUT £ 


PRIMO: 5521 CMD PRINTs12, C(ID), M$(I), VI), E(D), D$(D) £ 


TV COM: [83] 5465 OPENÁS : OUTPUT "KESZLET"£ 5521 PRINTá$5 : CCD; ," ; 
M$G) 57 VOD EDD; ," ; D$(DE 5536 NEXT : CLOSE5 : 
OUTPUT ; 


VT—16: 5465 OPEN "70", 483, "KESZLET" £ 5521 WRITE-83, C(1), M$(D), 
V(I), EG), D$(1) £ Próbálja meg az 5521-et változatlanul hagyni. OK 
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5300 PRINT "A NYILVANTARTAS BOVITESE?" : PRINT 
5.301 INPUT "HANY TETELLEL BOVIT?"; W : PRINT 
5310 FOR I-N51 TO N-W : INPUT C(1), M$(), VII), EC, D$(D 
: NEXT 
5320 PRINT "A BOVITETT NYILVANTARTAS: " : PRINT 
5330 FOR I-I TO N-W : PRINT CD, M$(), V(I), E(1) ; D$(4) 
: NEXT 


5400 PRINT "CIKKEK TORLESE § §§0Ö)— s 5 49-IG" 
: PRINT : PRINT Ötös skot sk ak ak ak sk ak sk sk sk 

5401 DIM O(N-W) 

23410 FOR I-II TO N-W : RXI) - C(1)/109-—INT (C(D/1900) 

5420 IF OC (1) 50.40 THEN 450 

5430 C(D-0 : M$(D-" " : V(D-0 : EC1)-0 : D$(D-7 "7 

5450 NEXT 


5460 PRINT "AZ EREDMENY FILE" : PRINT $tkokkk 
5465 OPEN83,8,12, "c. 0 : KESZLET, S, W" 
5470 FOR J-I TO N-W : ÍF C(J)-0 THEN 530 
5480 I-Is1 : C(D—€C(I) : M$(D-M$(I) : V(D-V(J) 
: E(D-E(I) : D$()-D$0) 
5481 PRINT C(1), M$(), V(1), EC; D$(D : PRINT 
53521 PRINT£83, C(ID):; CHR$(13)M$(I1); CHR$(13) V(D 
; CHR$(13) E(1); CHR$(13) D$(D 
5530 NEXT : CLOSE83 : END 
3RUN Ld A 


AJ — A program futtatása előtt gondoskodni kell 
a megfelelő (P82 alkalmazásával nyert) 
"KÉSZLET" file-ról. 

— Az ST-64-re alapozott file betöltési mód- 


nál a rekord-okat megszámlálhatjuk (215). 
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ABC: — 


HTZ: — 


TEXAS: 


PRIMO: — 


eeeemm——————————————5—a—a——"—Iueaöuööo ee ee ENE MEEENNT EE ENE EE elee 


TV COM: -. 


VT-16: — 


Ez nem kerülhető el, ha a további feldolgo- 
zás érdekében a rekord-ok adatait tömbökbe 
(C(D,.... DX(D) kell sorolni (216). Mivel 
a tömbök retrográd (visszamenőleges) mó- 
don nem dimenzionálhatók a megengedett 
legnagyobb (255) dimenziót kölcsönözzük 
számukra. Ha az így dimenzionált tömbök 
száma elég sok, a központi memória túl- 
lépése állhat elő. A dimenzió ugyanis elő- 
zetes "memória foglalást biztosít. Ilyen 
esetben lefele engedünk (pl. C(50)). 

A file bővítése új rekord-okat, esetünkben 
bővített tömböket is jelent. Ezért olyan 
ciklusos input-tal dolgozunk, ahol a szám- 
láló N--1-el indul. 

Rekordok törlése olyan értékadást jelent, 
ahol a numerikus változó a nulla, a karak- 
teres változó pedig az üres (? ") string-gel 
azonosul. A kiválasztásra általános receptet 
adni nem lehet, de annyi bizonyos, hogy 
valamilyen logikai függvény alapján történ- 
het. Példánkban a két utolsó jegyet le kell 
választani, hogy a logikai függvénybe helyet- 
tesíthető legyen. Erre a törtalakban való 
kinyerés látszik célravezetőnek (pl. 35418; 
354,18—354-0,18). 

A törlések után a bővített file 97 "b Ó 
alakú és eredeti rekord-okból áll. A disk- 
re rögzítés előtt kiszűrjük a törölt elemeket. 
Ezt átindexeléssel (3470, 5480) oldjuk meg, 
de ne felejtsük el, hogy a file utolsó rekord- 


84 93 


jai eredeti indexükkel is fennmaradhatnak. 
Ezért az átindexelő cikluson belül kell a 


disk-re rögzítést is megoldani. 
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ABC: s11 [RETTE 5600 [RET ÍZ 5331 N-N-W : GOSUB 610£ 5610 lásd 
P66 4 


HTZ: BS4 JSILÍNL]E 5600 ÍNL [d 5331 N-NHW : GOSUB 610 £ 


TEXAS: 184] 211 LENT ] 
5600 OPEN83 : rezzs estét KESZLET", OUTPUT rá 
5610 : PRINTH83 : CD 7, " , M$0) ; 7, 7 stb.§ 


PRIMO: 184] 211 [RET] 


Tv cCoM: [84 511 OK 


VT-—16: 511 [ENT Iz 
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041 


Programcsomag adatfile kezelésére. 


Képesítse a programot a feladatok egymástól független megoldására: 


5SLOAD "P83", 8 : LIST—1Ó$ : LIST 1680—2Ó6 : LIST 296 — 
51  DIMCC(1Ób, M$(1db), VCLÓb), EC1Gb), DSC1Ób), 016) 
52 PRINT "A SZOLGALTATASOK JEGYZEKE" : PRINT 
53 — PRINT "trI""KESZLETERTEK SZAMITAS7 

54 PRINT ?rr2:FKORLAT ALATTI CIKKEK LISTAJA" 
55 — PRINT "tt35t A NYILVANTARTAS BOVITESE" 

56 PRINT ""r4-FTÖRLES A CSZ 2 UTOLSO JEGYE A" 
57 PRINT "MIAZ ON KIVANSAGA? " : INUT Z 


58  ONZ GOSUB 109, 206, 300, 490 

59 FOR I-I TON: C€(D-b : M$09-" " : V(IDd-b : E(1) - 
d :D$X0D-" " :NEXT:N-0 :I- d: GOTO2 

526 RETURN 

5101 GOSUN 10 

5120 PRINT "KESZLETERTEK - 787" FT" : PRINT :S -0 

5121 RETURN 

5201GOSUB 19 

5202 INPUT "A MEGADOTT KORLAT?";.K : PRINT 

5.221 RETURN 

5301 GOSUB 10 

5 302 INPUT "HÁNY TETELLEL BOVIT? "; W : PRINT 

5331 N- NrW : GOSUB6OÓ 

5332 RETURN 

5401 GOSUN 10 

5531 N-zI : FOR P-1 TON : A(P)-p : NEXT 

5532 RETURN 

560 OPENS 3,8,2" 20: KESZLET, S, W" : X$-CHR$(13) 

5610 FOR I-1 TON : PRINTz83, C(ID); XSM$(ID); X$v. (1) 
; X$E(1) ; X$D$(I) : NEXT 

5 620 CLOSE 83 : RETURN 

SRUN  -Ííd A 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT—-16: 
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— Összetartozó, de egymástól függetlenül akti- 
válható programok együttesét program-cso- 
magnak nevezzük. A csomag bevezető 
utasításai a befoglalt szolgáltatásokról és 
aktiválásuk módjáról tájékoztatnak 
(22—27). Az aktivitást egy INPUT paramé- 
ter (7) kötött értékadása (Z-1,2,3,4) mellett 
az ON Z GOSUB C; ,..., C4 — RETURN 
utasításpár oldja meg. Az ON GOSUB 
ugyanis Z-l esetben C41-re, Z-2-nél C;-re, 
stb. adja át a vezérlést. A C), C2,... címké- 
ket pedig a megfelelő szubrutinok nyitó 
címkéivel azonosítjuk. 

— A szubrutin is behívhat rutinokat. Ilyen 
megoldást találunk pl. a 3. feladatnál, ahol 
a file beolvasását, majd a bővített file rögzí- 
tését külső rutinok oldják meg. Ezek a 
GOSUB C — RETURN utasításpár hatására 
lépnek majd ki. A RETURN akár az ON 
GOSUB, akár a GOSUB párjaként funkcio- 
nál, ugyanoda a vezérlést átadó utasítást 
követő címkére adja vissza a vezérlést. 
Kövessük nyomon a Z-3-hoz tartozó vezér- 
lést a és programokon: A 58 
átadja a munkát 53090-nak. A 5300 akti- 
válja A 5210-et. A file betöltése 525-nél 
befejeződik. 226 vissza léphet 53$2-re. 
Az új rekordok bevezetése 2331-ben végetér 
és 56ÓÚ kapja a vezérlést. A bővített file 
disk-re vitele megtörténik és 5620 átadja 
5332-nek a lépés jogot és mivel ez az ON- 
GOSUB RETURN párja, a vezérlést 529-re 
adja át. Itt törlik a használt változókat és 
a gép a 52-be lépve ismét felajánlhatja szol- 
gálatait. Ügyeljünk a DIM utasítások elhelye- 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT-16: 


144 


NEM? 


NEM: 


A [84] -et csak 3 helyen kell módosítani: 211 ON ERROR 25 :: REM 
HIBAFELTÁRÁSHOZ UTASITÁSZ: 5324 CLOSEt83 :: N-IZf 525 CALL ERR 
(W, X, Y, 2) :: PRINT W; X; Y; 24 W-hibakód; X-file szám; Yz —1 (utasítás); 
9 (egyéb); Z-hiba címkéjef Az ON ERROR—CALL ERROR a program egészét 


ellenőrzi hiba szempontjából. Észlelés esetén 25-re kerül a vezérlés és a kép- 


511 Törölve 516 GOSUB 25 3521 IF NOT EOF(12) THEN 15 522 
CMD CLOSE 12 : N-IX 525 CMD ERROR EN, EM$, ET, ES : IF EN 51 THEN 
PRINT EN; EM$S; ET; ESX A 15-ös "parancs" csatornát nem kell megnyitni 
(így lezárni sem) a hiba lekérdezéshez§ 


NEM; 


Ne vegye figyelembe a jobboldali módosításokat. Helyette: 511 ON 
ERROR GOTO 6303 5630 PRINT "HIBAKOD-" ERR, "A HIBAS UTASITAS 
CIMKEJE-" ERLX 5640 PRINT "JAVITSA KI A HIBAT" : STOP; 


042] 


zésére, mert az ismételt dimenzionálást a 
gép visszautasítja és leáll a programmal. 
— Vegye birtokba a P84-et és dolgozzon 
vele. Változtassa a feladatok feltételeit. 
Ha közben kiürülne a disk-ről hívott "kész- 
let" file, töltse fel a P82 alkalmazásával. 
— Programcsomagunk további feladatokkal és 
a feladatok változataival is bővíthető. Ez 
utóbbi esetben a 100, 20, 3009 és 400 
címke kiinduló pontja egy-egy al-program- 


csomagnak. 


Az OPEN15,8,15 — INPUTZ15, EN, EM$, ET, ES urasítások használata. 


Módosítsa a 


84 ! programot, hogy ellenőrizhesse a file betöltés kimenetelét: 


53LOAD "P84", 8 : LIST—100 


211 OPENIS,8,15 

213 GOSUB 25 

216 RS-ST : GOSUB 25 

517 C(D-C : M$(D-M$ : V(D-V : E(D-E : D$(D-D$ 

221 IF RS CS THEN 15 

222 CLOSE83 : N-I : CLOSE 15 

223 RETURN 

225 INPUTA15 EN,EM$,ET,ES : IF EN 21 THEN 
PRINT EN, EM8, ET, ES 

226 RETURN 


AA — A file műveletek az OPENI5.8,15 - IN- 
PUTj15S, EN, EM$, ET, ES — CLOSE15 


utasításokkal ellenőrizhetők. 


145 


ABC: — 


HTZ: — 


TEXAS: ernyőn megjelenik a hiba kódja, amit a felhasználói kézikönyvből azonosíthatunk. 
X,Y,Z kiegészítésk 


PRIMO: — 


TV COM:  — 


VT—16: — 
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— Ha a floppy a. 211, illetve 512 utasításokat 
valamelyik disk hiba miatt nem tudja végre- 
hajtani, akkor jelzést ad a hiba száma (EN), 
és megnevezése (EM$), valamint fellépési 
helye (ET-track szám; ES-sector szám) 
megjelölésére. Ezeket az információkat IN- 
PUT:t15-tel kérdezhetjük le a 15-ös csator- 
nán, amit a lekérdezés előtt meg kell nyitni. 
Ha a file művelet zavartalan, akkor Ó, OK, 
0, 0 a hibaváltozók értéke. Ellenkező eset- 
ben a négy adat tájékoztat a hiba jellegé- 
ről, ami egyben a betöltés meghiusulását 
is jelentheti. Ilyen esetben megismételjük 
a betöltési műveletet, feltéve, hogy a file 
nem hibásodott meg és vált használhatat- 
lanná. 

— Példánkban a 213 csak a file megnyitását, 
a 516 viszont a rekordok beolvasását tétele- 
sen ellenőrzi. Itt az a furcsa jelenség tapasz- 
talható, hogy az ST-Ó az ellenőrzés alatt 
ST-64-re vált, holott a betöltésnek még 
csak a kezdeténél tartunk és egy rekord 
beolvasása után, a 221 leállítja a művele- 
tet. Ezt úgy oldjuk fel, hogy egy segédvál- 
tozóval azonosítjuk az ST betöltéskor fel- 
vett értékét, (RS-ST) és csak utána kérdez- 
zük le a hibajeleket. Így RS-64 csak akkor 
áll elő, amikor ST a file végét érzékeli. 

— A betöltési művelet végén nemcsak a file-t 
hanem a parancs csatornát is le kell zárni. 
Erre szolgál a CLOSEI5. Fontos, hogy a 
15-ös csatorna megnyitása és lezárása be- 
ágyazóként jelenjen meg a file megnyitása 
és lezárása vonatkozásában (azaz OPENI 5— 
OPEN83—CLOSE83—CLOSE15). 
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ABC: 86 ] NEMX Szalag használata igen nehézkesz 


HTZ: 86 ] NEMÁZ Szalag használata igen nehézkesz 


TEXAS: 86 ] OKK 


PRIMO: 86 ] OKg A program futtatása előtt biztosítson a stringek számára elegendő tá- 


roló kapacitásti CLEAR 1000 [RET JE 


TV COM: 86 ] 18 karakternél hosszabb szópárok esetén T$(N)"30 kerül 55-bez 


VT-1l6: 86 ] OKZz Wfloppy OK; 


14. Angol- Magyar szójegyzék a könyv utolsó lapján található. 
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A CLOSELlS ugyanis az addig megnyitott 
munka file-okat is lezárja. Gyakorlatilag a 
CLOSEH83 el is hagyható. Ezt mégsem taná- 
csoljuk, mert ha a program futási idejét 
erőteljesen megnövelő hibalekérdezést el- 
hagyjuk a programból akkor a CLOSE15-re 
nem számíthatunk a file-ok lezárásánál és 
nyitva maradhatnak, ami mint tudjuk, 
a felülírásukkal fenyeget. 

A hibalekérdezés és kijelzés (INPUT315— 
PRINT) utasításait szubrutinként kezelhet- 
jük 25). Ezt az is indokolja, hogy nemcsak 
a betöltési, hanem a rögzítési műveleteket is 
ellenőrizhetjük ugyanabban a programban. 
Ilyen okok miatt találjuk az OPEN15-öt a 
program elején, a CLOSE1l5-öt pedig a 
program végén, gondosan ügyelve arra, hogy 
a vezérlés megnyitás nélküli lezárást, illet- 
ve lezárás nélküli megnyitást ne kezdemé- 
nyezhessen, mert a program hibajellel fog 
leállni. 


STRING függvények. A LEN, LEFT$ és RIGHTS$ használata. 


Irjon programot a COMMODORE64 programozását és működését kísérő angol 


szavak! és magyar jelentésük disk-en való rögzítésére és kétnyelvű használatára: 


4—4—4—4 


2:NEW 


51 PRINT "ANGOL-MAGYAR; MAGYAR—ANGOL SZÓTAR" 

52 INPUT "HANY ANGOL SZOT TESZ A TARBA?"; N 

55 DIM A$(N), M$(N), X(N), Y(N), T$(N) 

510 PRINT "X(1) AZ ANGOL AX$(1), Y(I) A MAGYAR M$() 
SZAVAK HOSSZAT MERI" : PRINT 

520 FOR I-1 TON : INPUT "ANGOL SZO?" ; A$(I) : 


X(D-LEN (A$(D) 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


186] S35ON ERROR 180 540 :: Z$ törölve 541 törölvei 510D : : 
OPEN15,8,15 törölveg — 5110 :: IF SEG$ (T$(P), 1, X (P))-K$ THEN 115 
ELSE 120£ 5115 PRINT K$; "7-7"; SEG$ (T$(P), X (P) - 1, Y(P))::GOTO 60 
515bOPEN15,8,15 törölve 5160 :: IF SEG$ (T$(P), X(P) : I, Y(P)) - K$ 
THEN 165 ELSE 170 £ 


(86) 535 törölve; 540 CMD CREATE2, "SZOTAR"3 550 FOR I-II TON : 
CMDPRINT£t2, XCI), A$UI) £ M$(D, Y(I) : NEXT : CMDCLOSE2T 5180 
CMDERROR EN, EM$, ET, ES : f 5200 CMDOPEN2, "SZOTAR" X 5210 
CMDINPUT$2,X,T$, Y:3 


[86] 535 törölveg 240 OPEN$S : OUTPUT "SZÓTÁR "§ 541 törölve 
550 : T$(D-A$X(D £ MÉKD : PRINTÉS : XCD;7 , "7 ; T$4); 7," ; Y(D : NEXT 
:CLOSE$5 : OUTPUT: 5-56ENDEÉ 5359 DIM A$(200), M$(200), T$(200), 
XC00), YCDOZ5D110 FOR P-1 TO I : A$(P)-T$(P) (:X(P)) : IF (A$(P)-K$) 
THEN PRINT KS; "7-7"; T$(P) (X(P):1:) : GOTOGÓX  OPEN15,8,15 törölvez 
5160 FOR P-I TO I : M$(P)-T$(P) (X(P)-1:) : IF (M$(P)-K$) THEN PRINT 
KS; "-7;T$(P) (:X(P)) : GOTO 60£ 5180, 190 törölveg 5201 törölvez 


VT—-I6: 


86 ] 535 ON ERROR GOTO 2403 540 OPEN "70", $86, "SZOTAR" 
541 törölvez 550 :WRITE-86, X(ID, A$(D) - M$(I), Y(I) : NEXT : CLOSEH86£ 
5100 és 5150-ből : OPEN15,8.15 törölve; 3180 —5190 törölve; 5201 töröl- 


VER 


150 


530 INPUT "MAGYAR MEGFELELOJE?" ; M$() : YI 
-LEN (M$X(1)) : NEXT 
535 OPENI5.8,15 
54Ó OPEN86,8,2, 70 : SZOTAR", S, W" : 26-CHR$(13) 
541 GOSUB 180 
550 FOR I-1 TON : PRINT:86, X(D ; Z$A$I1-rM$ (I) 
; Z$Y(I) : NEXT : CLOSE86 : CLOSE15 
555 PRINT ,"A SZOTAR KESZITESE BEFEJEZVE" : PRINT 
556 PRINT 7099909009009090909000090000000000000"" 
560 PRINT "SZOLGALTATASAIM:" 
561 PRINT "r1t" ANGOL SZO MAGYAR JELENTESE?" 
562 PRINT 7"r2""MAGYAR SZO ANGOL JELENTESE" 
57Ó INPUT "MELYIK SZOLGALTATAST KERI[?"; Z : I-) 
580 ON Z GOSUB 100, 150 


581 PRINT Ötiátititiiittttittttetttttő 
5100 INPUT "KOPOGJA LE AZ ANGOL SZOT" ; K$ : 
OPEN15,8,15 


5101 GOSUB 260 
5110 FORP-I TO I: IF LEFT$ (T$(P),X(P))-K$ THEN 
PRINT K$"-"RIGHT$(T$(P),Y(P)) : GOTO60 
5120 NEXT : PRINT "A SZOT NEM ISMEREM" : GOTO 60 
5150 INPUT "KOPOGJA LE A MAGYAR SZOT"; K$ : OPEN15,8,15 
5151 GOSUB2ÓÓ 
5160 FOR P-1 TO I : IF RIGHT$(T$(P), Y(P))-K$ THEN 
PRINT K$"-" LEFT$(T$(P),X(P)) : GOTO60 
5170 NEXT : PRINT "A SZOT NEM ISMEREM" : GOTO6p 
5180 INPUT$15, EN, EM$, ET, ES : IF EN 51 THEN 
PRINT EN, EM$, ET, ES 
5199 RETURN 
5200 OPEN86,8,2, "0 : SZOTAR, S, R7 
5201 GOSUB 180 
5210 INPUT$86, X, T$, Y :1- 141 : XII-X :T$(D-T$:YID-Y 
5220IFST €5 64 THEN 210 
5230 CLOSE86 : CLOSE15 
5231 RETURN : END 
SRUN:RUN60  -[d 0 A 


ABC: 


HIZ: 


TEXAS: 


PRIMO: 


TV COM: 


[86 ] 5165 PRINT K$ ; " - " ; SEG$(T$(P),1,X(P)) :: GOTO 60£SEGS ("7 " , 
I, J) a szöveg I-edik karakterétől kezdve J karaktert olvas kif 5180 CALL ERR 
(WI, XI, YI, Z1) : PRINT WI; XI; YI; ZIX 5261 törölve; 5220 IF EOF(86) 
THEN 210 5230 CLOSEt86£ 


86 ] OPEN 15,8,15 és CLOSE15 mindenütt törölvez A 2RŰN a szótár 


felhordása, a fRUN60 a szótár használata során alkalmazhatóz 


86 ] 5210 INPUT$5 : XI, TI$, YI : GET$5 : V$ : IH 6 1 : X(D - XI : T$(D- 
T1$ : Y(ID-YIZ 5220 §-PEEK(2926) : IF S20 THEN 230 : ELSE 2104 5230 
CLOSE$5 : INPUTZ RUN; 5RUN59£ 


VT—16: 
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5220 IF NOT EOF(86) THEN 2108 5230 CLOSE$86; 5231 RETURNE 
5240 PRINT "HIBAKOD -" ERR, "CIMKE -" ERL, "JAVITSA A HIBAT" : 
STOPX 5-3RUN60 a szótár használatára szolgál. Ha helyette RUN kerül beütésre 
a szótár törlődik. Ez kivédhető, ha 24Ó-ben WRITE helyett APPEND-et szere- 


peltetünk az alapítás utáng 


— A program első része (21-—256) kétnyelvű 
szótár disk-re vitelét oldja meg. A szópáron 
(A$, M$) kívül a szavak hosszát (betűszá- 
mát) is rögzítjük (X, Y). A szóhosszt a LEN 
függvény adja meg. Célszerűségi okokból a 
szópárt egy string-be szorítjuk (A$rM$) és 
így rögzítjük. 

— A program második része (36—5231) a 
szótár használatát biztosítja. Kiindulhatunk 
akár magyar, akár angol szóból. Az igény 
rögzítését a "SZOTAR" file betöltése kö- 
veti (53200—5231). Ezután jön az azonosí- 
tás. Ha angol szóból indul ki az igény, akkor 
az A$rM$ balfelét elemről-elemre összevet- 
jük az adott szóval és ahol egyezés keletkezik, 
ott az A$rM$ jobbfelét válaszként íratjuk 
ki. Szerencsés körülmény, hogy a LEFT$ 
(T$, X) függvény a T$ szöveg balodaláról 
az első X, a RIGHT$ (T$, Y) pedig a jobb- 
oldaláról az utolsó, Y karaktert választja 
le. A magyar szóból való kiindulás fordított 
eljárást igényel. 

— A betöltési és rögzítési műveleteket tétele- 
sen ellenőriztük a [85 ]-ben. Itt csak a 
file megnyitás ellenőrzésére szorítkoztunk. 

— A parancs csatornát 3-szor nyitjuk és zárjuk 
a programban. Ezt a program-csomag jelleg 
magyarázza. 

— A program egyszer indítható RUN-nal, 
amikor a szótárt felhordjuk. A lekérdezést 
RUN 60-nal indítjuk. 
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ABC: 87 ) P86-tól függetlenítvef OK 5RUN-nalf P87-et bármely programba be- 
építhetjük, ha valamilyen céllal várakoztatjuk a program futását (pl. kazetta 
csere, döntés a menűből való választásról stb.); 

HTZ: 87 ) Külön 565 G$ - INKEYS : IF G$ CA" THEN 653 566 IF G$-"7N" 
THEN ENDX 567 PRINT "SZEP"$ SRUNZ Bármely programba beépítve sza- 
bályozhatjuk a program futását z 

TEXAS: 87 ] 565 INPUT G$ (::GET és ::1F törölve); A GET utasítás hiányzik. A teljes 
65-öt INPUT G$ helyettesíti Z 

PRIMO: 565 INPUT G$:IF G$ - "N" THEN END: 566 törölvef Az egyszerű 
GET utasítás hiányzik a gép BASIC-jébőlg Próbálja ki a365 G$- " " : G$z 
INKEYS$ :IF G$ C "A" THEN 65 utasításokat 3 

TV COM: 87] 565 G$-" " :GETGS$S :IF (G$-" ") THEN 653 566 IF (G$-"N") 
THEN ENDg Próbálja ki önálló programként, vagy megfelelő címkékkel bármely 
program részeként £ 

VT—-16: 87] 565 G$-" " : GSzINKEYS : IF G$-" " THEN 65£ KEY-billentyűz 


A dinamikus STOP. A GET utasítás használata. 


Egészítse ki a P86-ot futás-szabályozó utasításokkal: 


5SLOAD "P86", 8 : LIST—100 


563 PRINT "HA EGY BETUT LEUT, AKKOR RUN 65, HA AZ 
N-ET, AKKOR END KOVETKEZIK" 


565G$-" " : GET G$ : IF G$ - 


9999 


THEN 65 


566 IF G$-" N" THEN END 


2RUN 60 


- [d 


A 


A 565 egy, a G$-től függő ciklusba vezeti 
a gépet. Ha G$ üres, akkor 565 végrehaj- 
tása ismétlődik. A GET olyan értékadó 
utasítás, amely a klaviatúra bármely gomb- 
jának (GET G számjegyre; GET G$ egyébre) 
a leütésével teljesíthető. Hatására a G, 
illetve G$ értéke a leütött karakterrel azo- 
nosul. Ekkor megszűnik G$ üres jellege és a 
gép 266-ra lép. Olyan esetben alkalmazzuk 
a 265-öt, amikor időre van szükségünk a 
gép közleményeinek az értelmezésére, lemá- 
solására, tárolók cserélésére stb. 

A 565-höz kötődő 266-ot kiegészítésül 
adjuk meg olyan esetben, amikor a program 
ciklus futását a munka befejezésével regulári- 
san akarjuk leállítani. A RUN/STOP alkal- 
mazása kedvezőtlen a floppy számára, mert 
a file lezáratlan marad. Erre a célra kitüntet- 
jük valamelyik karaktert (pl. N). Ennek 
leütése a 565-ből való kilépést és 2566-ban az 
END végrehajtását eredményezi. 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT—-16: 


88] NEME 


88] NEMK 


88] 5101 ON ERROR 600d£ 53110 OPEN-88 : "DSK1. DIREKT", RELA- 
TIVE 200, FIXED 254X 5130 törölveg 5140 :: GOSUB 519£ 5150 törölve 
5160 : CLOSE15 törölvef 5500 PRINT$88, REC 200 : —1 :: RETURNÉ 5510 
PRINT/88, REC J : —1£ 5600 CALL ERR (W, X, Y, 2)4 53601 PRINT 
W; X;.Y; Z£ A megnyitásban szerepel a (RELATIVE) jelleg, a (200) rekord- 
szám, a szóbajöhető (FIXED) rekord típus és a (254 BYTE) rekordhosszá 


88] 5101 törölve; 5110 CMDDEFS5, "DIREKT, L, " - CHR$(254)$ 5130 
CMDPRINT;5, —1X 5135 CMDCLOSESZ 5140 FOR I-1 TO 199 :CMDDEFS5, 
"DIREKT" : GOSUB 500£ 23169 CMDCLOSES : NEXT IX 5510 CMDPRINT 
"P" : CHR$(5) - CHR$(L) - CHR$(H) - CHR$(1)X 5600 CMDERROR EN, 
EM$, ET, ESZ A parancs csatornát nem kell megnyitni és lezárni. 


A 5CMDPRINT . utasítás automatikusan a 15-ös csatornát veszi igénybe; 


88] NEMK 


[88] 5101 ON ERROR GOTO 609 : DIM F$ (200): 5110 OPEN "R7§I, 
"RELATIV", 1544 A rekord logikai száma relatív file esetén csak 1—3 (£3 file 
lehet nyitva egyidőben), a rekordhossz csak 1—180 (később kiterjesztjük) 
lehet  513ÓPUTÁI I: PUFFERBŐL LEMEZRE VISZI AZ I-EDIK REKOR- 
DOTZ 52150 PUT$1, IZ 5160 NEXT I : CLOSE$1 : ENDX 55009 FIELDZ1, 


154 AS FS(DZ 5510 LSET F$(I) - MKI$(—1) : "A REKORD ADATAI SZÁ- 
MÁRA HELYET FOGLAL A PUFFERBEN£ 


045 A relatív file telepítése és felhasználása. 


Irjon alkalmazási programot relatív file disk-en történő telepítésére: 


hi 5SNEW 
5100 PRINT """:RELATIV FILE TELEPITESEf "7 
5101 OPENI5,8,15 
5110 OPEN88,8,5, DIREKT, L,  CHR$(254) 
fe 5120 I-200 : GOSUB 500 
5130 PRINT488,—1 
5140 FOR I-1 TO 199 : GOSUB 500 
5150 PRINT388, —1 : GOSUB 600 
5160 NEXT I : CLOSE88 : CLOSE15 : END 
5170 REM § A SZERVÍZ RUTINOK 
5500 H - INT(I/256) : L-1— H "256 
5510 PRINT$15, "P" : CHR$(53--CHR$(LYCHR$(H)- CHRX1) 
5520 RETURN 
5600 INPUT$15, EN, EM$, ET, ES 
5601 IF EN a 50 THEN PRINT EN, EM$, ET, ES 
5610 RETURN 
új SRUN  -[ld A 


AA — A relatív vagy direkt elérésű file soros el- 
rendezését illetően olyan, mint a szekven- 
ciális file, azzal az eltéréssel, hogy ismerjük 
a rekordok fekvését, tehát olyan koordiná- 
tákat, amelyek alapján a rekordok bármelyi- 
ke közvetlenül felkereshető anélkül, hogy a 
sorban előzőket letapogatnánk. 

— A relatív file telepítése a parancs csatorna 
megnyitásával kezdődik. A file megnyitása 
két dologban tér el a szekvenciális file meg- 
nyitásától. Itt egy L betű (2110) közli a gég- 
pel (operációs rendszerével), hogy relatív 


file megnyitását kezdeményezzük. a 
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ABC: — 


HTZ: ZS 


TEXAS: Az INPUT-OUTPUT elhagyása mindkettő működését jelenti. A PRINT-4- 
ben a RECJ a pointer állítók 


PRIMO: — 


TV COM:  — 


VT—-1l6: A string-gé konvertált adatokat, balra igazítva (LSET) helyezi a puffer- 
beg 5600 PRINT "HIBAKOD" ERR, "HIBACIMKE" ERL, "JAVITSON" : 
STOPZ 5601 törölveg Relatív file telepítése kétlépcsős művelet: 
REKORD - PUFFER - LEMEZ; Ilyen file-ba csak string telepíthető. A 
számokat (egész, E pontos, D pontos) az MKIS$ ( ), MKS$ ( ), MKDS ( ) függvé- 
nyek konvertálják Z 
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CHR$(254) pedig a tervezett rekordkép 
helyigényét (karakterszám) rögzíti. A leg- 
kisebb rekordkép! (CHRS$(1)). a legnagyobb 
254 karakterből állhat. A szóköz is karak- 
ternek számít. 

A rekordok számát előre meg kell adni. Ha 
üres disk-et használunk és 254 karakterből 
álló rekordokkal kell dolgoznunk, akkor 
legfeljebb 664 rekorddal számolhatunk. A 
két paraméter fordított tendenciában mo- 
zog. A file túlméretezése hibajellel párosul. 
A file telepítését a megnyitással, majd az 
utolsó (példánkban 200-adik) rekord le- 
telepítésével indítjuk. Deklaráljuk a sor- 
számát (I-200) majd kiszámíttatjuk a hely- 
zetjelző (pointer) disk-re vonatkozó pozíció- 
ját. Erre szolgál az 3509 és 5510 utasítás. 
A H és L segédparaméterek láthatóan a 
rekord sorszámától (1) és a disk formátum- 
tól függenek. Az 5510 a parancs (15) 
csatornát használva beállítja az írókart a 
kiszámított rekordterület 1-es pozíciójába, 
hogy az 5-ös (CHR$(5)) csatornán érkező 
parancsokat végrehajtsa. A 5130 utasítás 
—1-el — foglalja le az utolsó rekord terü- 
letét. Ezzel a file terület lefoglalása befeje- 
ződött. A file belső rekordjainak hasonló 
eljárással foglalunk helyet. A már biztosí- 
tott területen. A foglalást FOR ciklussal 
vezéreljük. Kedvező, hogy a pointer állá- 
sokat nem kell feljegyeznünk, mert az 
550Ó és 5510 utasítások bármikor rekonst- 
ruálják azokat, ha a sorszámot (I) közöljük. 
A disk műveletek zavarait a szokásos módon 


ellenőrizhetjük. 
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ABC: 89 ] NEMÁ 

HTZ: 89 ] NEME 

TEXAS: 89 ] 5310 OPEN$88 : "DSKI. DIREKT", RELATIVE 200, FIXED 2543 
5330 :: GOSUB 5154 5340 törölveif 5360 NEXT I :: CLOSEH88 :: END3 
5515 INPUTH38, RECI : A$3 A lekérdezésnél az INPUTs alatt állítjuk a 
pointert (a keresett rekord indexe alapján) 

PRIMO: 89 ] 5310 törölve 53330 FOR I-I TO R : CMDDEF5, "DIREKT" : GOSUB 
500£ 53340 CMDINPUTS5, A$ : GOSUB 600£ 53360 CMDCLOSES : NEXT 
: ENDÉ A "file-t ICMDKILL "RELATIV" RET Í utasítással törölhetjük a 
disk-rőlg 

TV COM: NEM: 

VT-16: 5310 OPEN "R", 42, "RELATIV", 1544 5330 : GOSUB 8004 5340 


PRINT A$ : AZ - CVK(A$) : " PUFFERBÖL OLVAS EGY 154 KARAKTERES 
STRING-ET, MAJD EGÉSZ SZÁMMÁ FORDITJAZ 5350 PRINT AZ :" KÉP- 
ERNYŐRE IRZf 53360 NEXT : CLOSE$2 : ENDZ 53800 FIELD$2,154 AS 
A$I 5810 GETH2,I : " LEMEZRŐL PUFFERBE TÖLTI AZ I-EDIK REKOR- 
DOTX$ 5820 RETURN Relatív file betöltése kétlépcsős művelet: LEMEZ — 
PUFFER-REKORD- 
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[85] 


Egészítse ki a P88-at file lekérdező programmal: 


" 5BLOAD 7P887", 8 : LIST 


5300 PRINT "tt A RELATIV FILE LEKERDEZESEF ff" 
5310 OPENI15,8,15 : OPEN88,8,5, "DIREKT" 
5320 INPUT "HANY REKORDRA KIVANCSI?" ; R 
5330 FOR I-I TOR : GOSUB 500 
5340 INPUT:88, A$ : GOSUB 600 
5350 PRINT A$ 
5360 NEXT : CLOSE88 : CLOSE15 : END 
x SRUN 300  -ld A 


AA — Ha P88-al 2ÓÓ rekordból álló relatív file-t 
telepített, akkor RC-20Ó rekordot kérdez- 
het le. A file megnyitása egyszerűsödik, 
amennyiben az "L" és a CHR$(254) elmarad 
a 5310-ből. A gép a megnyitáskor feljegyez- 
te, hogy a 88-as "DIREKT" file relatív 
(REL) típusú és 254 karakterből állnak 
rekordjai. 

— A rekordok betöltését a pointer állások 
kiszámítása előzi meg, (GOSUB 500). A 
betöltő utasítás (2340) látszólag azonos 
a szekvenciális file betöltésével használatos- 
sal. Meglepő eltérés, hogy a relatív file re- 
kordjai karakter konstansként viselkednek 
és így A$-el azonosíthatók. 

— Korábban a parancs (15) csatornát csak 


akkor nyitottuk meg, ha ellenőrizni akar- 
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ABC: NEMI 


HTZ: NEM; 


TEXAS: 90] A relatív file megnyitása OUTPUT és INPUT esetén azonos. A file-szám 
és rekord-hossz változtatható (most 2Ó0 és 45. Nagyságukat tervezzük az infor- 


mációk száma és 1 információ hossza alapján) ; 


PRIMO: 543 INPUT X$£ 5110 CMDDEFS5, "SZEMELYZETI, L, ""CHR$(45) 4 


TV COM:  — 


VT—-16: A betöltött string-eket vissza kell konvertálni számokká a CVI ( ), CVS ( ), 
CVD ( ) függvényekkelf Wfloppyra OK: 
54 DEFINT B, G : DEFSNG M : " ÉRTELEMSZERÜENE 
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tuk a disk műveleteket. Relatív file esetén 
a 15-ös csatornának funkcionális szerepe 
van. A pointer állításában vesz részt, tehát 
megnyitása nélkül nem boldogolunk. 

A RUN300 az ismételt file telepítést hivatott 
elkerülni, jóllehet az egyező paraméterek 
(rekordhossz, file hossz, név) mellett meg- 
ismételt telepítés észrevehető változást nem 
idéz elő a disk-en. Más a helyzet ha a rekord- 
hosszt módosítjuk. Ezt a floppy visszautasít- 
ja és hibajelet ad, miközben a file érintetlen 
marad. Ha ugyanakkor a nevet is megvál- 
toztatjuk, akkor új file telepítése veszi 
kezdetét, feltéve, hogy van szabad terület. 


Az egyetlen paraméter a file hossz, ami 


szabadon növelhető újratelepítéssel. Az el- 
járás nem érinti a már feltöltött rekordok 


tartalmát. 


Egészítse ki a P89-et a telepített file feltöltésére alkalmas olyan programmal, 


amely személyzeti anyagra — név, végzettség, munkabér, gyerekek száma — speci- 


fikált és oldja meg a 3 rutin függetlenítését: 


€ 53.LOAD "P89", 8 : LIST 


55 PRINT "RELATIV FILE PROGRAM" 

510 PRINT "F::SZOLGALTATASAIM§8§" : PRINT 
520 PRINT "1 ::RELATIV FILE TELEPITESE" 
530 PRINT "$r28t RELATIV FILE FELTOLTESE" 
540 PRINT "rr3"t RELATIV FILE LEKERDEZESE" 


541 PRINT " 
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ABC: NEM; 

HTZ: NEM; 

TEXAS: 90 ] 543 INPUT X$4; 5345 ONERROR 60$ÓX 5101 törölvek 5110 GOSUB 
700X 5160 : CLOSE15 : END törölvef 5179 RETURNZ 5260 : GOSUB 566 
törölveg 53270 PRINT488, REC I : N$; B; M; GY 5270 :GOSUB 600 törölvez 
5280 : CLOSE15 törölve 5340 törölvef 53360 :: END törölveg 55106 :: 
RETURN: -70Ó0 OPEN$8B8 : "DSKI. SZEM", RELATIVE 200, FIXED 457 

PRIMO: 90 ] 5169 CMD CLOSES : NEXTf 5210 törölvek 5250 FORJ-I TOR: 
CMDDEF5, "SZEMELYZETI 3 53270 CMDPRINT-:£5, I, N$, B, M, G :Z 5280 
CMDCLOSE5: NEXTJZ 5310 törölvef 5340 CMDINPUTS5, I, N$, B, M, G :X 
5350 PRINT I; N$; B; M; GX 5360 CMDCLOSES : NEXTf 57060, 710 töröl- 
veg 

TVCOM: 190]NEMÉ 

VT—-16: 
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543 : X$ - INKEY$ : £ 5110 GOSUB 900£ 5160 NEXT : CLOSE$1£ 
5210 GOSUB 900£ 5260 I-J : GOSUB 709 5270 PUT$ 1, I£ 5280 NEXT 
J : CLOSE$IX 5310 GOSUB 900: 5340 B-CVI (B$) : M-CVS(M$) : G-CVI 
(G$) ! STRING-SZAM KONVERZIOT 5350 PRINT NI$; B, M, Gf 5360 
NEXT : CLOSE$IÉ 5500 FIELD$1,45 AS F$(D : 


542 PRINT"N" LEUTESE : END ; MAS BETUE : RUN" 
543 X$-" " : GET XS$:IF X$-"" THEN 43 

544 IF X$-"N" THEN END 

550 INPUT "MELYIK SZOLGALTATAST KERI?" ; V 
560 ON V GOSUB 100, 200, 300 

570 GOTOI1Ó 

5110 OPEN88,8,5, "SZEMELYZETI, L, ":CHR$ (45) 
5160 NEXT I : CLOSE88 : CLOSE 15 

5170 RETURN 


5200 PRINT 7:::RELATIV FILE FELTOLTESESt" 

5214 GOSUB 700 

"5220 PRINT "VEGZETTSEG AZONOSITOK : 1-ALT. ISK. 
, 2-SZAKM, 3-ERETT, 4-FOISK, 5-EGYETEM" 

5230 PRINT "VALTOZOK : N$-NEV, BeVEGZETTSEG, 
M-MUNKABER, G-GYEREKEK SZAMA" 

5240 INPUT "A DOLGOZÓK SZAMA? " ; R 

5250 FOR J-I TOR 

5251 INPUT "A KOVETKEZO DOLGOZO SZEMELYI ADATAI 
277: N$, B, M,G 

5260 I-J : GOSUB 500 

5270 PRINT:88, I; N$; B; M; G : GOSUB 600 

5280 NEXT J : CLOSE88 : CLOSE15 

5290 RETURN 


5310 GOSUB 700 

5340 INPUTÁZ88, A$ : GOSUB 600 

5350 PRINT A$ 

5360 NEXT : CLOSES8 : CLOSE15 

5370 RETURN 

5700 OPENI5,8,15 : OPEN88,8,5, "SZEMELYZETI " 
5710 RETURN 

SRUN old A 


ABC: 91 ] NEMÉ 


HTZ: 91] NEME 


TEXAS: 91 ] 545 INPUT X$5 


PRIMO: 91 ] 545 INPUT X$£ 


TV COM: 91] NEME 


VT—16: 2700 FIELD$I1, 30 AS NI$, 3 AS B$, 9 A$, M$, 3 AS G$ : LSET N1$-N$ 
: LSET B$-MKI$(B) : LSET M$-MKS$(M) : LSET G$-MKI$(G)Z 
2800 FIELDÁI, 30 AS NI$, 3 AS B$, 9 AS M$, 3 AS G$Z£ 5900 OPEN "R", 
Hl, "SZEMELYZETI", 45 : RETURNÉ Wfloppyra OKZ 
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AVAS — A program 55—570Ó utasításai a rutinok 
függetlenítését, a s200—5290 pedig a sze- 
mélyzeti file rögzítését szolgálják. A P89 
egyes utasításait érinti a file címváltozása, a 
rekordhossz, CHR$(45) módosulása és a 
függetlenséggel kapcsolatos vezérlés. Új elem 
a 57ÓÓ, amely szubrutinként biztosítja a 
file munkára való megnyitását. A 25340-et 
csak annak rögzítésére írtuk ki, hogy a 
rekordok tartalmától független az INPUTf$ 
A$. Ez a betöltési mód nem jelenti azt, 
hogy a rekordok a gépben karakter konstans- 
ként viselkednének. 

— A P9Ó tetszőleges tartalmú relatív file 
alapítására és lekérdezésére alkalmas, feltéve 
egyes utasítások módosítását. Erre szorul a 
5110, 120 és 700 (nev, file és rekordhossz), 
valamint a 2200—5300 utasítások. 

— A rögzítés érdekessége (2270), hogy I 
értékét a ciklus biztosítja. A pontosvessző 


tömör rekordképet generál. 


Egészítse ki a PJÓ programot rekordok törlésére és új rekordok rögzítésére alkalmas 
rutinokkal: 
k SLOAD "P90"8 : LIST I j 


542 PRINT 74 :DOLGOZO TORLESE?" 

543 PRINT "tt5tt UJ DOLGOZO FELVETELE" 

544 PRINT "Nt LEUTESE: END ; MAS BETUE : RUN" 
545 X$-" " : GETX$ : IF X$-" " THEN 45 

546 IF X$- "N" THEN END 
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ABC: 


HITZ: 


TEXAS: 


PRIMO: 


TV COM: 


[91] 5130 törölveg 5140 :: GOSUB SI0Í 5415 I-K :: GOSUB 5154 5420 
törölvek 5425 törölve 5430 PRINT A$ :: J-IÉ 5435 GOSUB 5103 5440 
törölve 5445 CLOSE$88 :: RETURNI 5475 törölvei 5480 PRINT:88, 
RECJ:N$; B: M;G£ 


[91] 5140 FOR I-1 TO R-I : CMDDEFS5, "SZEMÉLYZETI" : GOSUB 500£ 
5340 CMDINPUTS5, A18, A2S, A38, A4$X 5350 PRINT A18$; A2$; A38; 
A4$Z 5410 CMDDEFS, "SZEMELYZETI £ 53420 CMDINPUT£s5, A1$, 
A2$, A3$, A4$4 5430 PRINT AI$; A2$; A3$; A4$£ 5470 CMDDEFS, 
"SZEMELYZETI; 5480 CMDPRINT$5, I, N$, B, M, G : GOSUB 6003 


VT—-16: 


[91] 513Ó PUT$I, IZ 5410 GOSUB 900£ 5415 I-K : GOSUB 800£ 5420 
B-CVI (B$) : M-CVS (M$) : G-CVI (G$)E 5425 és 435 törölve 5430 PRINT 
NI$; B, M, GF 5440 N$-" " : B-Ó : M-Ó : G-Ó : GOSUB 7003 5441 PUTS1, (3 
5445 CLOSES1 : RETURN: 53470 GOSUB 900£ 5475 I-J : GOSUB 700£ 
5480 PUT:sI, IÉ 5485 CLOSE;1 : RETURNÉ Wfloppyra OK 
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56Ó ON V GOSUB 100, 200, 300. 400, 450 
5S11IINPUT "A FILE HOSSZA?" ;R 
5120 I-R : GOSUB 500 

5130 PRINTÁ88, —1 


5140 FOR I-1 TOR-1 : GOSUB 500 


5400 PRINT """:DOLGOZO TORLESEfF tt" 

5405 INPUT "A TORLENDO NEV INDEXE? " ; K 

5410 GOSUB 700 

5415 I-K : GOSUB 500 

5420 INPUT88, A$ 

5425 GOSUB 600 

5430 PRINT A$ 

5435 GOSUB 500 

5440 I-20 : N$-" " : B-O : M-0 : G-D : PRINTs 
88 I; N$; B; MG 

5445 GLOSE88 : CLOSE15 : RETURN 


5450 PRINT 7$$""UJ DOLGOZO FELVETELEtH87 
5455 PRINT "NEV, VEGZETTSEG, BER, GYEREK" 
5460 INPUT "A DOLGOZO SORSZAMA??" ; J 

5465 INPUT "A DOLGOZO: " ; N$, B, M, G 

5470 GOSUB 700 

5475 I-J : GOSUB 500 

5480 PRINT73t88, I ; N$ ; B ; M ; G : GOSUB 600 
5485 CLOSE88 : CLOSE15 : RETURN 


SRUN  -[d A 


AVAS — A két új szolgáltatás miatt átszervezzük a 
P9Ó 540—2550 utasításait és kibővítjük a 
5D6Ó hatókörét. Az általános érvényű prog- 
ramot megközelítendő, paraméterként kezel- 


jük a file hosszát C111). 
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ABC: NEM 


HTZ: NEME 


TEXAS: 5330 FOR I-K TOK: R-1 :: GOSUB 5153 


PRIMO: 92 5250 FOR J-I TO 4FR STEP 4 : CMDDEFS5, "SZEMELYZETI "3 5330 
FOR I-K TO K-R - I : CMDDEFS, "SZEMELYZETI " : GOSUB 5004 


Az üres (—1-el foglalt) rekordokat a program nem tölti bef 


TV COM: NEM; 


VT—16: 5330 FOR-I-K TO KFR -1 : GOSUB 800 X Próba után állítsuk vissza 
5250 FOR J-I TOR alakba 
A file-ok törlése : KILL "SZEMELYZETI" (ENTJ]E 
A törlés ellenőrzése: FILES LENT [fi Wfloppyra OKZ 
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— A rekord törlésére szolgáló rutin erősen 
hasonlít a 3-as (relatív file lekérdezése) 
rutinra, csak rekord törlő és az üres rekordot 
rögzítő (53440) utasítással kel kiegészíteni. 

— Új rekordot bármikor felvihetünk a koráb- 
ban telepített direkt file-ra, akár valamely 
rekordot felülírva, akár az utolsó feltöltött 
rekordot követő helyre, sőt a file határt 
áttörve APPEND jelleggel is. A realizáció az 
index (3460) megadásától függ. Előzetesen 
tájékozódnunk kell a file képéről a 3-as 
rutin — bevetésével, nehogy fontos informá- 
ciót felülírjunk. Sok nyilvántartásnál szá- 
molni kell utólagos beszúrásokkal. Erre 
akkor van lehetőség, ha az első feltöltésnél 
üres rekordokat biztosítunk, vagyis hézago- 
san töltünk. 

— A 3-as rutin kedvezőbben használható, ha 
alkalmas a file egyes részeinek a lekérdezésé- 


re is, 


Módosítsa a P91-et oly módon, hogy a 2-es rutin 4—4 hézagot biztosítson a feltöl- 
tött file-ban, a 3. rutin pedig a file bármely szeletét képes legyen betölteni: 


ja 2.LOAD úpoj. 8 : LIST 256 : LIST 309—330 


5250 FOR J-I TO 4:(R STEP 4 
5320 PRINT "EGY REKORD, REKORDSOR, ES A TELJES FILE IS 
LEKERDEZHETO!" 
5325 INPUT "A REKORDSOR ELSO INDEXE : K, ES 
TAGSZAMA : R?";K,R 
5330 FOR I-K TO K-R-1 : GOSUB 500 
x SRUN . -[d Aa 
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5210;5280;5281 marad [92] szerinti 5330;5331 marad 92 
szerintá 5350 PRINT A$ : IF I-K:R THEN 361 5360;52361 marad / 92 ] sze- 


93 ] DELETE 20£ 5DELETE 109—170£ 5219 CMDDEF5, "SZEMELYZE- 


TI, L, "5 CHR$ (45)3 5250 FORJ-I TORI 53330 FOR I-K TO K:R -I : 
CMDDEFS5, "SZEMELYZETI "3 5350 PRINT AI1$; A2$; A38$; A48£ 


ABC: 93] NEMZ 
HTZ: NEM; 
TEXAS: 
rintk 
PRIMO: 
536Ó CMD CLOSES : NEXTg 5361  ttörölveg 
TV COM: 93] NEM; 
VT—-16: 
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93] 520 [ENTIZ DELETE 109-—-179 (ENTTIE 53210 GOSUB900£§ 


5280 NEXTJ:CLOSEHli 5281 törölve 5330 FOR I-KTOK-AR -I : 
GOSUB 8OÓZ 5331 törölve 5350 PRINT NI$;B,M,Gi 5360 NEXT: 
CLOSE$IX 5361 törölve 


AA — Ha a file feltöltését FOR—-—TO-—STEPa— 
—NEXT szervezéssel oldjuk meg, akkor két 
töltött rekord között ax számú rekord hely 
marad üresen. Ezek később az 5-ös rutinnal 
tölthetők fel. Ha a ciklus kezdőpontjával 
és a STEP lépésközzel manőverezünk, tet- 
szőleges file feltöltést érhetünk el. 

— A teljes file lekérdezése a K-l és a file hossz, 
egy szeleté a kezdő index és a szelet rekord 
száma, egy rekordé pedig a rekord index és 


R-1 megadásával érhető el. 


Törölje a P92-ből a file telepítésére vonatkozó utasításokat és egészítse ki relatív 


file közvetlen rögzítésére alkalmas programmá: 


HW 3LOAD 7"P92", 8 : LIST —200 


520, 1ÓÓ, 191, 119, 111, 129, 130, 149, 150, 169, 179 


5210 OPEN15,8,15 : OPEN88,8,5, "SZEMELYZETI,L, :CHR$(45) 
528Ó NEXTJ 

5281 CLOSE88 : CLOSE15 

5330 FOR I-K TO K:R-1 

5331 GOSUB 500 

5350 PRINT A$ : IF I-K:R THEN 361 


5360 NEXT 
5361 CLOSE88 : CLOSE15 
x SRUN -[d A 
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ABC: — 


HTZ: — 


TEXAS: — 


PRIMO: 


TV COM: — 


VT—-16: L93] Terjessze ki a megnyitható file-ok számát 15-re és a rekord-hosszt 512-re : 
:SYSTEM ENT A gép a VTBASIC betöltésére kész állapotba kerülk 
2SVTBASIC B : P93 /F : 15 /S : 512 LENT ]§ Az A floppy-ban elhelyezett 
VTBASIC lemez betöltődik és a B-ben lévő P93 program RUN parancsot kap. 


OK után módosíthatjuk a rekord-hosszt, a logikai számot, a file nevét stb. 
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046 


[5271 


AVAS — A közvetlen alapítású relatív file számos 
gyengeséget mutat a telepítettel szemben. 
Nyitottsága gondot okoz a lekérdezésnél, ha 
nem tudjuk az utolsó rekord indexét. Túl- 
lépés esetén hibajelet kapunk és a lekérdezés 
az utolsó rekordot követő 2—5-ik üres re- 
kordnál megáll. Nem biztosít puffer terü- 
letet az utolsó rekord mögött, így a későbbi 
APPEND, területileg elszakadhat a file-tól, 
ami lassítja a file kezelését. A gép (file keze- 
lő rendszere) nehezen boldogul az utasí- 
tás sorokkal. Ezért bontottuk le a 3280, 330, 
5350 és 5360 utasításokat. Ilyen lebontás- 
sal kivédhetők a virtuális hibajelek, amik 
főként a rekordok rögzítését kísérik. A hiba- 
jelek értékéről lekérdezéssel tájékozódha- 
tunk. 

— A file felülírását és módosítását illetően 
ugyanazt mondhatjuk el, mint a telepí- 
tett filenél. Megjegyezzük, hogy a közvet- 
len alapítású file is telepítetté válik, ha a fel- 
töltés után alkalmazzuk az 5-ös rutint és 
egy fiktív rekordot töltünk be egy meg- 
határozott méretű tartalék terület mögé. 
Ezzel a file védett területét kiterjesztjük. 
Ez természetesen felesleges, ha egy disk-et 
egyetlen file tárolására használunk, ami 


ritkán fordul elő. 


File-ok konvertálása. 


Irjon másoló programot, amely szekvenciális file-t relatív file-ba visz át. Specifi-. 


kálja a programot a "LOTTO" c. file-ra. Ellenőrizze az eredményt: 


530 OPEN$T7T : "DSK1. LOTTO", SEGUENTIAL, INPUT, VARIABLE 
SZ 540 :: INPUT$T7T : A :: DC(KJ-A :: IF EOF(77) THEN 40£ 590 OPEN$94 : 
"DSK1. RLOTTO", RELATIVE K, FIXED 3. 5110, 5120 törölvef 5130 
PRINT-94, REC I : D(D) :: 4 5150 CLOSE$94 :: END 


94 ] 530 CMDOPENS, "LOTTO" : $ 540 K-K:1 : CMDINPUTS5, D : DCK)-D 
: IF NOT EOF(5) THEN 40; 5390 CMDDEF6, "RLOTTO, L, " : CHR$(3)X 
94/B ] 525 FOR I-I TO N : CMDDEF3, "RLOTTO7g 53btörölveg 360 
CMD INPUT33, 0$ : PRINT O$£ 2570 CMDCLOSE3 : NEXT : END; 
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ABC: NEM; 

HTZ: NEMÉ 

TEXAS: 

PRIMO: 

TV COM: NEM$ 
HE" 


A file újra alapítható. A programban 15 nyitott file dolgozhat egyidőben, (pl. 
törlő, bővítő, karbantartó stb., file-ok) [94] 520 PRINT "LOTTO AZ 
HAt, RLOTTO A "B" floppy-ban"$ — 530 OPEN "T", 41, LOTTO" : DIM 
D(1ÓÓ), D$(1Ód) : GOSUB 90£ 540 K-K:1 : INPUTSI, D : DC(K)-D : GOSUB 
110 550IF NOT EOF(1) THEN 407 560 GOTO L4d£ 570 — 580 töröl- 
vef 590 OPEN "R", $2, "B : RLOTTO", 3 " RELATIV FILE MEGNYITA- 
SAVE PIÓÓ RETURNÍ 5110 FIELD$2, 3 AS DÉ(K)x 


ká 


te] 
y 


4—4— d 4—4— 4—4— 4 


h] 


SNEW 

510 PRINT "A LOTTO C FILE KONVERTALASA" : PRINT 
520 PRINT "A LOTTO LEMEZ A FLOPPY-BAN? " : PRINT 
530 OPEN77,8,5, "b : LOTTO, S, R" : DIM D(190) 

540 K-K:I:INPUT:77T,D : D(K)-D : IF ST C5 64 THEN 49 
550 " CLOSE77 

560 PRINT "LEMEZCSERE AZ RLOTTO SZAMARA!" 
570 FOR X-I TO 209090 : NEXT j 

589 PRINT : PRINT" $":FOLYTATOMt tt? 

599 OPENI5,8,15 : OPEN94,8,6 "RLOTTO,L," 1 CHR$(3) 
5100 FOR I-1 TOK 

5110 HEINT (I/256) : L1—H"256 

5120 PRINTs15, "P? : CHR$(6) ( CHRKL) t CHRÉ(H) rt CHR$(p) 
5130 PRINTf194, D(1) : NEXT 

5140 PRINT : PRINT "N-"I 

5156 CLOSE94 : CLOSE15 : END 

SRUN  -[d A 


SNEW 
510 PRINT "RLOTTO ELLENORZESE" 

520 INPUT "A REKORDOK SZAMA?" ; N 

525 OPEN15,8,15 : OPEN94,8,3, "RLOTTO" 

530 FOR I-1 TÖN 

540 H-INT (1/256) : L-1—-Ht256 

550 PRINT$15, "P" 4 CHR$(3) : CHR$(L) ( CHRÉ(H) r CHR$(0) 
560 INPUT3£94, O$ : PRINT O$ : NEXT 

570 CLOSE94 : CLOSE15 : END 

SRUN -[d Aa 
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ABC: 


[95] NEMÉ A programot átírhatja két kazettás egységre és szekvenciális 
file-raf A CAS1-et használja a file betöltésére és CAS2-t a rendezett file rögzí- 
tésérek Ezesetben 5115 OUT 58,16 : OUT 58,24£ 

95]1A rögzítés ellenőrzéséhez különálló betöltő programot kell írnia, mert a 
5SRUN 120 utasítás nem működikz 


HTZ: 


TEXAS: 


PRIMO: 


95 ] NEME Kísérelje meg két kazettás egységgel a problémát megoldani; 
Csak szekvenciális rögzítésre gondolhatk A gépet használja a file betöltésére 


és a CAS2-n végezze a rögzítéstf 


94/B ] 525 OPEN$94 : "DSKI. RLOTTO", RELATIVE, FIXED: 540; 
550 törölvek Relative file esetén a rekord csak FIXED típusú lehet, tehát 
jelzése elhagyható. Ez nem gazdaságos a 80 BYTE-os rekord-ok miatt; 


TV COM: 


95 ] NEME A gép nem tud stringeket lexikografikusan rendezni. 
Ha ORD(B$(1)): Z - ORD(B$(K)) összehasonlítást alkalmazunk, akkor a kezdő- 
betűk ASC kódjai alapján rendezünk. Ezt alkalmazzuk -benk 


VT—-16: 
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5120 LSET D$(K) -MKISD(K)X 5130 PUT$2, K : RETURNÉ 5140 
PRINT "N-"K$ 5150 CLOSE : ENDE 

525 OPEN "R", $3, "RLOTTO", 3; 540FIELDH$3,3ASO$: 550 
GETf3, IX 560 09-CVI(0O$) : PRINT 02), : NEXTi 570 CLOSE43 : ENDÍZ 
Wfloppy OKX 


AA — A szekvenciális file-t ST figyeléssel olvas- 
tatjuk be a disk-ről és számláljuk (K) a re- 
kordokat. Ezt felhasználjuk a relatív file 
rögzítésénél (231009) a ciklus vezérlésére. 

— A szekvenciális file bázis disk-jét felhasznál- 
hatjuk a relatívvá konvertált file közvetlen 
telepítésére. Ellenkező esetben a lemez 
cserélése időt vesz igénybe. Ezt nagyszámú 
üres (370) ciklus beépítésével biztosíthatjuk. 
A 570-et késleltető utasításnak nevezzük. 
A kettős disk műveletet ugyanazon a csa- 
tornán bonyolíthatjuk, de eltérő számú 
(5;6) csatorna választása biztonságosabb. 

— A konvertálás ellenőrzéséhez a 5140 utasí- 
tás közli a szekvenciális file rekordszámát, 
ami egyenlő a relatív file rekordszámával. 
Ezt a B., 520 INPUT-nál használjuk fel. 

— A pointer pozíciószáma nem lehet magasabb 
a betöltésnél, mint a rögzítésnél (550; 
5120). 

— A rögzítést ellenőrző program utasításai (B) , 
nagyrészt megtalálhatók a telepítést végző 
programban is. Célszerű a két programot 
összedolgozni. Egy lehetséges megoldást 


bemutatunk a -ben. 


047 File-ok mozgása háttértárolók között. 


Olvassa be kazettáról a , NEVSOR" c file-t. Rendezze a neveket A, B, C sorrendben 
és rögzítse disk-en a NEVSOR c. relatív file-ba. A rögzítést ellenőrizze: 
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ABC: 


TEXAS: 


PRIMO: 


TV COM: 


VT—-l6: 


530 CLOSE1t62 ::$ 5110 :: BREAK$ 5120 OPEN$95 : "DSKI. NEV 
SOR", RELATIVE, FIXED 303 57140; 5150 törölveg 53160 PRINT$95, 
REC I : B$() :: PRINT B$(ID ::$ 5176 PRINT "INPUTSH, VAGY PRINT:t? 
IRJA BE 169 ALA A MEGFELELOT ES RUN 1207£ A 170-es címkét nem 
tudja törölnik 5180 CLOSE$95 :: ENDX 5-200; 3210 törölvekf RUN 
200 törölveg 


5110 törölvet 5169 CMDPRINT$7, B$(I) : NEXT: 5170 REM 51206 
INPUT N : FOR I-1 TO N : CMDDEF7, "NEVSOR, L,"£ 2171 REM 5160 
CMD INPUTS:7, N$ :PRINT N$353172 REM 180 CMDCLOSE7 : NEXT : ENDI 
5180 CMDCLOSE7£ 5200 PRINT "TOROLJE A 170, 171, 172 CIMKEKET 
ES AZ UTANUK KÖVETKEZO REM SZOKAT (EDIT) "x 53201 PRINT" 
TOROLJE A 5130 UTASITAST, MAJD RUN 12073 


SLOAD$5 : "P6G2A" : LISTÉ 530 CLOSE INPUT : £ 540 : PRINT 
"A KEZDOBETUK SZERINT RENDEZEK 45370 IF ORD(B$()) Cs ORD 
(B$(K)) THEN 90£ 5 DELETE 110—-210£ 2RUNZ nk, a kazetta nyilvántar- 


tásból kikereshető £ 


510 : DIM B$(N), D$(N), KÉ(N)Z 530 : GOSUB 1204 5180 SWAP 
B$(I), B$X(K)Z 5100 PRINT B$() : GOSUB 1408 5110 NEXT I: ENDÉ 5120 
OPEN "R", 42, "NEVSOR", 30 5131 FIELD32, 3b AS D$(1) : LSET 

D$() - MKI$(—1) : PUT$2, I : NEXT : CLOSE$2 : RETURN: 53140 OPEN 
"R", §3, "NEVSOR", 30 : FIELD$3, 30 AS K$(I) : LSET K$(I) - BX(I) : 
PUTf43, I : CLOSE$3 : RETURNEÉ 5150— 5200 törölve. Betöltés P95A-valá 
5RUNZ 
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5BLOAD 7P62/A "8 : LIST 


530 
240 


550 
560 
570 
580 
590 


CLOSE15 : PRINT "A NEVEK BETOLTESE KESZ" 
PRINT : PRINT 7"t:LEXIKOGRAFIKUSAN 
RENDEZEK"tt" 

FOR I-1 TON : IF EN THEN 199 

FOR K-I1 TON 

IF B$(I) a - B$(K) THEN 99 

S$-B$(D : B$(D-B$(K) : B$(K)-S$ 

NEXTK 


5109 PRINT B$( : NEXT I 


5116 PRINT "TEGYEN DISZK-ET A FLOPPY-BA!" : STOP 
5126 OPEN15,8,15 : OPEN95,8,7, "NEVSOR, L, " 1 CHR$(30) 


513Ó FORI-1 TON 

5140 H-INT (1/256) : L-I—Ht256 
5150 PRINT415, "P" : CHR$(7) ( CHR$(L) ( CHR$(H) r CHR$(4) 
5160 PRINTH95, N$(1) : NEXT 

5170 REM 160 INPUT$95, N$ : PRINT N$ : NEXT 
5180 CLOSES5 : CLOSEIS5 : END 


5200 PRINT "TOROLJE A 170-es CIMKET ES A REM-ET 
(LIST170 ; TORLES), MAJD RUN 120" 

5219 END 

SRUN  -[Íd A 

SRUN 209 

SRUN 120 


AVAT — A 62/A programból indulunk ki. Töröljük az 
END-et, majd rendező (559-160), rögzítő 
C120—2180) és átalakító programot fű- 
zünk hozzá. 
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ABC: — 


HTZ: — 


TEXAS: — 


PRIMO: — 


TV COM: — 


VT—16: 95/A ] 510 INPUT "NEVEK SZAMA ?"; N : OPEN "R", 342, "NEVSOR", 302 
520 FOR I-1 TO NÍ 530 FIELD$2, 30 AS A$3 540 GET32, I : PRINT A$ : 
NEXT$ 550 CLOSE$2:ENDZ 53RUNG 
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— A [77 1-ben megírt számrendező program 
stringekre is érvényes. Az IF bevezetése az 
550 alatt csak arra szolgál, hogy más válto- 
zatot is bemutassunk a rendezésre. 

— A rögzítő programunk relatív file-t alapít. 
A pointer pozíciót 4-nek adtuk meg. Ez 
pazarlás a tároló kapacitással. 

— A 5S17Ó REM egy utasítást hordoz, ami a 
17Ó és a REM törlése után 5160-as utasí- 
tásként lép fel, törölve a PRINT$95, N$(1) 
: NEXT utasítást. A 32ÓÓ arra szólít fel, 
hogy ezzel a törléssel a 2120—2180 rögzítő 
programot betöltő programmá konvertálja és 
RUN 120-al aktiválja. 

— A program működése: RUN elindítja a nevek 
kazettáról való betöltését, névsort állít elő 
majd disk-en rögzíti. REDY után RUN 200 
felvilágosít a konverzió módjáról. A LIST 
170-re kapott programsor címkéjét és a 
REM kulcsszót törölve RUN 120 betölti a 
disk-ről a névsort majd leáll. Ismételt futta- 
tás előtt a 160-at eredeti formába állítjuk 
vissza. 

—-— A programját már korábbról ismert 
rutinokból állíthattuk össze. Kedvező lenne, 
ha disk-ről, vagy szalagról behívhatnánk a 
szükséges rutinokat és programmá szerkeszt- 
hetnénk. Sajnos minden LOAD parancs 
egyben NEW parancs is, ezért a dolog nem 
megy. Racionális eljárásnak azt tekinthetjük, 
hogy a legnagyobb méretű rutint betöltjük 
és a kisebb rutinokat a klaviatúráról hozzá- 
fűzzük. Bizonyos körülmények között azért 
fogunk tudni programokat egyesíteni. Erre 


visszatérünk. 
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96 ] Printer nincsen rendszeresítve Egyes feladatokat képernyőre értelmez- 


96 ) Printer nincsen rendszeresítvef Egyes feladatokat képernyőre értelmez- 


96 J Printer alig van a hazai állománybanf Egyes feladatokat képernyőre ér- 


telmezve oldunk megf 


DATACOOP-DCD-PRT-—42 printer-rel dolgozunkt — A/4-es írólapokat 
használunk, mint az írógépen; 

SCMDLOAD "P45" [(RETÍE  57ON LINE? KÖRMÖK MEGERIN- 
TÉSE A PRINTER HOMLOKÁN (sárga lámpa világít): PLLIST je 


96 ] WALTERS MICROSYSTEMS LTD. MODEL WM 29909 printer-re! dol- 


97 [SLOADt5 : "P45"? ÍRETIE Kapcsoló (hátul, balra) LON J: 


zöld lámpa ég (elől balra) Ha a PE lámpa ég igazítson a papíron  -LLIST 


ABC: 
ve oldunk megi 
97 ] NEMÉ 
HIZ: 
ve oldunk megf 
97 ] NEM; 
TEXAS: 
97 ] NEMf 
PRIMO: 
TV COM: 
gozunkí 
RET [E 
VT—-16: 


WALTERS MICROSYSTEMS LTD. MODEL WM 4000 printer-rel dol- 
gozunkk Papírtovábbító henger állítás 1-re (skála a henger bal végén), ha 
szimpla papírt fűz bek SLOAD "P45" LENT]E Kapcsoló (hátul 
balra) [on SEL zöld lámpa ég (elől balrajf Hava PE lámpa ég, 
igazítson a papíroni SLLIST [ENT]ÍF Ha ERROR lámpa ég 


[sec]. [RESET 
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4. A 


PRINTER KEZELÉSE, PROGRAMOZÁSA ÉS FELHASZNÁLÁSA. 


Kösse össze a printer-t a számítógép rendszerrel. Tűzzön be szabványos írópapírt, 
ellenőrizze az írószalag kazattát (épség, festék, mozgás). Kapcsolja be a rendszert: 
048 Program kinyomtatása. OPEN—-—CMD—LIST és a PRINT3$—-CLOSE utasítások 


használata. 


Nyomtassa ki a programot: 


hú PLOAD "P457, 8 
A ást 250PEN97 4 : CMD97 : LIST 
5 FRIHT "AH HASOUFOKU EGYEKRLET MEGÜL NASH" 
19 IMFUT "AZ H.E.C EGYUTTHATUK ERTEKES": H.E. CZ 
28 LET I-ET2—4:§REL 
39 IF ú-(A§ THEN FEINHT "MHIHCSEN VELOS GyYyük":GÜTÜ1KH 
48 S1z(-EtrZÜERADö 27 €ztH] : AzzfeESER e Da 27 e ztH 
58 IF 4145Z25-B-/A ANDÁALtazzCsAH THEH PEIHT "ziz"Ai."szztsz:GÜTŰ 74 
é PRIHT "KÜZELITŰ  HEGOLDRS"A1. AZ 
7Aa STÜF 
an GuTú 14 
ag END 
REARUŰY. 
€ 5PRINTH97 : CLOSE97 RET 
MA — A printer megnyitása és lezárása a háttér- 


tárolókhoz hasonlóan történik. Az OPEN 
hivatkozik a nyomtatásra tervezett file 
numerikus azonosítójára (pl. 97) és a printer 
hívószámára, ami mindig 4. A CMD a prog- 
ramot egy tárolóba viszi, melynek a LIST 
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ABC: 198] NEMÉ 


HTZ: NEMi 


TEXAS: NEM: 


PRIMO: 3CMD LOAD 7$7$ DLLIST ÍRETÍE A printer-t nem kell meg- 
nyitni és lezárnig Ha a papír elfogy RESET-tel állítjuk meg a listázást és 
DLLIST C1-el folytatjuk, ha a Cl címke előtt állt le anyomtatásg 


TV COM: NEMI 


VT—-16: A printer-t nem kell megnyitni és lezárni. Az LLIST mindkét funkciót ellátjak 


SFILES [LENTI r[PRTSC]F A PRTSC a képernyő tartalmát 


viszi printer-re. Ha -a disk tartalomjegyzéke nem fér el a képernyőn, akkor 


a l CTRL ] NUMLOCK gombokkal a listát megszakítjuk, printeljük, majd 
folytatjuk a listázást és ismét printelünk stb.£ Ismétlés elkerülhető, ha a ké- 


pet feltoljuk LENT ]-el£ 
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A€ 


nyitja ki a zárját és a tároló tartalma a 
nyomtatóra sorolódik. Meglepő, hogy a le- 
zárást egy üres PRINT:ft-nek kell megeiőz- 
nie. A printert a CLOSE bocsátja el, amikor 
a vezérlést ismét a gép veszi át. Ha elmulaszt- 
juk a lezárást a rendszer figyelmeztet. A 
floppy például vörös villogással válaszol 
minden megnyitási kísérletre. Ilyenkor a 
PRINTH97 : CLOSE97, majd az OPEN15,8, 
15, "I" adja vissza a rendszer munkaképes- 
ségét. A lezárás elmulasztását jelzi az is, 
hogy a gépnek szánt LIST utasítást a prin- 
ter hajtja végre, vagyis képernyő lista helyett 
nyomtatványt kapunk. 

A printer 80 karaktert írhat egy sorba, így 
a program utasításai egy-egy sort foglalnak 
le. A sorváltás automatikus, de jelekkel is 
szabályozható. 

A program egésze helyett (LIST), bármely 
összefüggő részlete is kinyomtatható. Ekkor 
a LIST C1—C2 utasítást adjuk, ahol a Cl, 
illetve C2 címke el is maradhat. 


Nyomtassa ki egy disk tartalomjegyzékét: 


ja 5LOAD "8", 8 


júl 20PEN4,4 : CMD4A : LIST 


"p41" 
npáz" 
ne44 


1 

1 

1 

1 j 

1 "Fata RH" 
1 

1 

1 

É 


1 


gé 5PRINTá4 : CLOSE4 
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ABC: NEM ii 
NEM í 

HTZ: NEM í 
NEM 

TEXAS: NEM £ 
NEM i 

PRIMO: — [ 99 b10 törölvek 520 LPRINT "P45: A MASODFOKU EGYENLET MEG- 
OLDASA." : LPRINT$ 530 END$ 3ON LINE MEGÉRINTÉSEZ 5RUNZ 
DON LINE KIKAPCSOLÁSA (megérintés)f  3CMDLOAD "P45"$ 5ONLi 
SELISTő 
ok: 

TV COM: 510, 530 törölvek 5RUNZ$ SLOADHS:"P45" ÍRET]E XLLIST 
A printer-t nem kell megnyitni és lezárni. Mindkettő hibajelre vezetg v 
54 DIM C$"40X — 55 PRINT "A PROGRAM CIME?" : INPUT C$3 
520 PRINTH4 : C$z 

VT-16: 510 törölveg — 520 LPRINT "P45— A MASODFOKU EGYENLET 


MEGOLDASA.", CHR$(13)$ 530 törölve RUN: SLOAD "P45" 
LENT]E CLLISTE Másik megoldás: 310 OPEN "0", $t4, "LPTI:"£ LPTI: 
a printer (mint file) nevef 530 CLOSE$4 : X 


OK a második megoldásával £ 


188 


049 ADATOK kinyomtatása. OPEN-PRINT$-—-CLOSE utasítások. 


Irjon programot a P4S megcímezésére majd címmel együtt nyomtassa ki újra: 


ki 2NEW 
510 OPEN4 4 
A€ 520 PRINTs4, "P45 : A MASODFOKU EGYENLET MEGOLDASA." 
: PRINTH4 
530 CLOSEA4A : END 
§ 2RUN 
: 53LOAD "P45" , 8 
Act 250PEN4,4 : CMDA : LIST 


2 2PRINTf4 : CLOSE4 


FAVAN — A cím nem programnak, hanem adatnak 
számít. Az adatok kinyomtatása címkézett 
programmal történik. Ebben nem szerepel- 
nek a CMD és LIST utasítások. A nyomta- 
tást a PRINTH4 utasítás vezérli, ami a be- 
foglalt idézőjeles szövegre (később adat- 
listára is) terjed ki. Az üres PRINTÁ4 sor- 


közt biztosít a nyomtatványban. 


Módosítsa a P99-et alkalmazói programmá: 


55 INPUT "A PROGRAM CIME?" ; C$ 
520 PRINT:4, C$ 
x SRUN  -ld Aa 


Folytassa a munkát a feladatnál. A fontosabb prógramokat nyomtassa ki. 


Erre a programok alatt megjelenő A jel figyelmeztet!!! 
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510 törölveg 320 PRINT TAB (20) "KOVACS ISTVAN", CHR$(10) 
TAB (20) "NAGYREDE", CHR$(10) TAB (20) "TAS U 27£ 530 PRINT 
TAB (34) 5385£ A képernyősor utolsó két pozícióját lefedő TAB új sorba viszi át 


101] 510 törölvef 5205330 PRINTÍ 540 CLOSE4 törölvek A CHR$(13) 


510 törölve 520 PRINT TAB(10); "KOVACS ISTVAN" :TAB(10); 
"NAGYREDE" : TAB(10); "TTASU2"£$ 530 PRINT TAB(20); 53854 Más 
megoldás: 520 DISPLAY AT (20, 10) : "KOVACS ISTVAN" : : DISPLAY AT 
(22, 10) : "NAGY REDE? :: DISPLAY AT (24, 10) : "TAS U 27 stb. 


OK; LPRINT UTÁN, NEM ÁLL: PRÓBÁLJA MEG A KÉPERNYŐRE 


510 törölvex 520 PRINTS4 : STRING$ (20, " "); KOVACSISTVAN" 
: LPRINT : PRINTs4 : STRING$(20, " "); "NAGYREDE" : LPRINT: PRINT4 
:STRING$(29, 7" "), TTAS U27£ 530PRINTÁ4:STRING$ (35, "7 "); 53852 


ABC: 
a számot (Sstring-et nem) É 
HIZ: 
zs CHR$(10), tehát CHR$(13) maradhat a programban £ 
102] OK; 
TEXAS: 
PRIMO: 
ÁTIRNI A PROGRAMOT (PRINT) É 
OK: 
TV COM: 
540 törölvek 
102 ] 54 DIM N$"20, T$"20, C$r40, YÉ"TBOG 
VT—-16: 


190 


101] OKX PRÓBÁLJA MEG KÉPERNYŐRE IS ÁTIRNI A PRINTER-RE 
VONATKOZÓ PROGRAMOKAT. Itt elegendő a 34 törlése a 326 és 530 utasí- 
tásokban £ 


102] OK 


101 Irjon programot egy levélcím nyomtatásához: 


xx 


2NEW 

510 OPEN4,4 

520 PRINT74, TAB(20Ó) "KOVACS ISTVAN" CHR$(13) 
TAB(20) "NAGY REDE" CHR$(13) TAB(20) "TAS U 2" 

530 PRINTf4, TAB(35) 5385 

540 CLOSEA4 : END 

2:RUN 


AA — A TAB az írópapír baloldali margójától 
számított karakter pozíciót biztosít a szöveg 
kezdőpontja számára. 

— A CHRÉ(13) sorváltásra utasítja a printer-t 
a megelőző szöveg kinyomtatása után. 

— Egy printer megnyitásban többezer PRINT3t 
követheti egymást. 


102 Fejlessze a PIÓ1-et alkalmazói programmá: 


A € 


55 INPUT "NEV?" ; N$ 

56 INPUT "TELEPULES NEVE? " ; T$ 

57 INPUT "KERULET, UTCA, HAZSZAM " ; C$ 

58 INPUT "IRANYITOSZAM" ; 1 

59 X$-CHRÉ(13) 

520 PRINTs4, TAB(20) NSXSTABOO)TÉXSTAB(20)C$ 
530 PRINT$4, TAB(35)I 

SRUN -Íd A 


MA — A TAB és a CHR$ utasítások láthatóan írás- 
jelek (;, :, ,) mellőzésével illeszkednek be az 


utasításba. 
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ABC: 


Kód készlet: 32—I273 520 XI - SPACE XI (3) : YXÁ- SPACE X(1) 
PRINTX ÁGYÚ; 530 : PRINT LEFT Ö((NUM Í (K) t XII, 4); : 
NEXTK : PRINT CHR (19)? 556 PRINT LEFT CÉ(NUM 06 YI, 3); 
YX;I 560 FOR J-31 "I TO III 5 I STEP 16 570PRINT LEFT 
(NUM XX 0) rXÖ,4);GYICGE DIÓ ENDE 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT—-16: 
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Kódkészlet : 32—255£ 520 PRINT " ";$ 530 FOR K-ITO 14 : 
PRINT USING "ztés" ; K;: NEXTK: PRINT CHR$(13)i 540 FOR I-1 TO 
16 : PRINT USING "öHtffő ;I;$ 550 FOR J-314H TO 239-ISTEPI6i 560 
PRINT USING "itt"; J; : NEXTJ : PRINT CHR$(13) : NEXT I : ENDf 


Kódkészlet: 32—127$ — 520 PRINT USING Özttttfő :" 0 7.$ 530 
FOR K-I TO 6 :: PRINT USING "ztitiHt" : K; :: NEXT KÉ 540 FOR I-I TO 
16 :: PRINT USING Öztftt£" :I1;3 550 FOR J-3I1HTOLIIIA STEP16i 560 
PRINT USING "zésttttH" : Já  NEXTJ :: NEXT I :: END£ 580—IDÓD törölve. 


Kódkészlet: 1—I514220 X$-7 "7 :Y$- 7" :LPRINT X$ Y$;X 536 
FOR K-I! TO 8 : LPRINT RIGHT$ (X$ : STR$ (K), 4) 5: NEXT K : LPRINT: 
540 FOR I-1 TO 29 : IF I-21 THEN 190£ 260 FOR J-I-1 TO 140 5 I STEP 
204 A printer 42 karakteres; 


59 Y$-STRING$ (20, " ")E 520 PRINT34 : Y$; N$ : LPRINT : PRINTi4 : 
Y$; T$ : LPRINT : PRINT344 : Y$ ; C$ : LPRINT £ 

520 PRINT$4 : STRING$ (3, " ")£ 530FOR K-I TO 8 : PRINT:4, 
USING "ső" : K; : NEXT K : LPRINTt 550 PRINT:$4, USING "443". I; 
560 FOR J-31(ITO 143 :ISTEPI6 


55 WIDTH "LPT1L:", 1008 A standard 80-ról 100-ra emeljük az egy sor- 
ba nyomtatható karakterek számátf 320 :OPEN "707, 34, "LPT1 :" : 3 

530 : PRINTs4, USING" itHtátHE, " ; K ; :$ 550 PRINTs4, USING "zt," 18 
570 PRINT:4, USING "zéztétát, ";J;£ 580 : PRINTH4, CHR$S(I3)i 


050 


103 


— Ha P62-vel rögzítjük ügyfeleink cím- 


jegyzékét (rögzítés kazettára P64, 225-re 
tekintettel), akkor a P1d2; 55—58 utasí- 
tásait a PG62/A programmal helyettesíthetjük, 
feltéve hogy címkéit és paramétereit aktuali- 


záljuk. 


Számok jobbra igazítása. Az STR$ függvény használata. 


Irjon programot, amely egy 16 soros négyszögbe nyomtatja a 0,1,..., 255 számokat 


(ASC II kód-okat), megszámozva a sorokat és oszlopokat: 


A€w 


A€ wy 


t 4 


23NEW 


5109 PRINT ""rASCII KOD-OK RENDEZESEF ff" 


520 X$-" 


7"; Y8-" ":OPEN 4.4 : PRINT34, X$YS; 


530 FOR K-I TO 16 : PRINTs4, RIGHT$(X$ : STR$(K), 49;. 
: NEXT K : PRINT$4, CHR$(10) 

540 FOR I-1 TO 16 : IF I-17 THEN 100 

550 PRINT34, TAB(1) RIGHT$ (Y$ :STRS$(I1),2) Y$ ; 

560 FOR J-I-1 TO 239 ISTEP 16 

570 PRINT$4, RIGHT$ (X$ : STR$(J), 4) ; 


58Ó NEXTIJ:PRINTHf4 


59Ó NEXTI 
5109 CLOSE4 : END 
SRUN -Íd A 
AA — A BASIC-ben minden karakterhez rendeltek 


egy-egy kódszámot. Ezt PS4-ben ki is hasz- 
náltuk. A kódok Ó, 1,..., 255 értéket vesz- 
nek fel. Ahhoz, hogy a karakterek és kódok 
megfelelését áttekinthetően szemléltethes- 
sük, a kódokat egy 16"16-os tömbbe rendez- 


zük, majd hasonlóan járunk el a karakterek- 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT—-16: 


Számok jobbra tartása nem oldható meg, mert a RIGHT XÁ(A X , 4) a 4. pozíi- 
ciótól jobbra álló karaktereket választja ki. Igy X Cr. NUM KX(K) jobboldalra 


K növekedésével egyre hosszabb, ha a pozíciószám állandó £ 


580 — 5100 törölve — A PRINT USING számok jobbra tartását biztosítja. 
Lásd a TEXAS regiszterben £ 


A PRINT USING számok és térközök jobbra tartását biztosítja. Tizedesek ese- 
tén kerekít (pl. PRINT USING "3.34": X, ha X-5.38, 5.4-et ad). Helyiérték 
túlfolyás esetén nem írja ki az egész számokat (pl. 15.38, .4-et ad) 


A printer közvetlenül csak a 33—127 kódokat képes azonosítani 4 Az XLPRINT 
CHR$(27) CHR$(82) CHR$(3) : LPPRINTTABCXYZabcxyz" ÍRET 


a printer grafikai jeleit nyomtatja ki X 


570 PRINT$4, USING Özéttátit ő : J;x —D8Ó : LPRINTE 53109 ENDX A 
PRINT$4, USING számok és térközök jobbratartását biztosítja. A "íttt.4" 
string a szám helyét jelöli ki. Ha a szám balra túlfolyik, hibajel, ha jobbra, 
kerekítés áll elő. 


A PRINT3t4, USING számok és térközök jobbra tartását biztosítja. A jegyek 
helyét a 3 jellel adjuk meg. Ha több egész jegy van, mint hely, csonkítás nem 
áll elő, de tört jegyeknél kerekítéssel számolhatunk Pl. "$.4", és 56.56 esetén 
56.6 jelenik megk 
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kel is. Erre szükségünk lesz a nyomtatás 
gyakorlatában. 

Számoszlopok nyomtatása esetén gondos- 
kodni kell az egyező helyiértékek egymás 
alá kerüléséről. Egész számok esetén az 
akkor merül fel, ha egy oszlopba eltérő nagy 
ságrendek kerülnek (pl. 1 ; 16). A meg- 
oldást jobbra igazításnak nevezik szemben a 
karakter konstansokkal (pl. névsor), ahol 
balra igazításról kell általában gondos- 
kodnunk. 

A jobbra igazításhoz deklarálnunk kell 
egy üres string-et annyi pozícióval, amely 
fedezi a legkisebb és legnagyobb szám ka- 
rakterbeli különbségét és az oszlopok 
között tervezett minimális távolságot. Pél- 
dánkban az X$ 3 pozíciós. Ebből 2 a nagy- 
ságrend 1 pedig az oszloptávolság miatt 
került felvételre. Az üres string-et balról 
hozzáadjuk a számok karakter konstans 
alakjához, majd az így keletkező string-ek 
jobboldalát leválasztjuk a RIGHT$ függ- 
vénnyel. A leválasztásnál annyi karaktert 
nevezünk meg, hogy a legnagyobb szám 
sem csonkuljon és az oszlopközt is hordozza. 
Az egyenlő mértékű karakter-ek egymás alá 
kerülve biztosítják a helyiértékek rendezett- 
ségét. Ezt alkalmaztuk 5230-ban az oszlopok 
és 550-ben a sorok számozásánál, valamint 
5570-ben a kódok pozicionálásánál is. 

Külön figyelmet kell fordítani az első 
oszlopindex elhelyezésére, amit 5320-ban az 
X$Y$ előíratásával oldottunk meg. A 
print-ek végén látható 5-k a sorképzést 


biztosítják. 
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Az ABC [103] programot módosítjuk$ 270 PRINTY X ; 


CHR XI (J;X XI ; utasitást is a programban (Az ASC kódok grafikus 


A HTZ [103] programot módosítjuki 560 PRINT" " ; CHR$(I); 


: £ A 92-es Ö, a 93-as A" és a 94-es az Ü kódja (ékezetes) 4 Használat: xPRINT 


565,66 törölveg — 270 PRINT$4 : STRING$ (3, 7" "); CHRS(ID;F 
575, 585 törölvex 580 marad a P1O3 szerinti  Irjaát képernyőre is a prog- 


ABC: 
CHR XX (I; X CG ; É Próbálja ki a 37Ó PRINT CHR XX (150;Y Ő ; 
megfelelőit kapjan fi A CHR XA (151) a grafikus kódváltóg Visszaváltóként 
a CHR X (135) alkalmazható; 

HTZ: 
"KAB" CHR$(93) "T" IKABÁT IF 

TEXAS: A TEXAS programot módosítjuk $ 566 PRINT" " ; 
CHR$ (Di 

PRIMO: 104 ] 565 IF JC-320RJ5127 THEN 80 § 566 törölve g 
580 LPRINT X$Y$; 

TV COM: 
ramot (1t4, 14 : és L törlése a printekből) £ 

VT—16: 


566 törölveg 570 PRINTst4, X$Y$ CHR$(ID);X 585 : PRINTi4, 
CHR$(13)f Irja át képernyőre és futtassa a programot f Vesse össze a prin- 


ter-en és a képernyőn keletkező, azonos kódszámú karaktereket? X 
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— A jobbra igazítás hasonló módon törénik 
olyan valós számok esétén is, amelyekben a 
tizedesjegyek száma azonos (pl. kerekített). 
Egyéb esetben a tizedespontok azonos 
pozicionálását kell megoldani (I: irodalom- 
jegyzék [18 ]). 

— A BASIC kétféle minőségben használja a 
számokat. A numerikus formát ismerjük, 
azzal számoltunk eddig is. A másik minőség 
a karakteres forma, ami szövegként visel- 
kedik. Ha egy számot időzőjelbe .teszünk 
karakteres formáját kapjuk (pl. 52; 7527). 
Ha viszont egy numerikus változó felvehető 
értékeit akarjuk karakteres formára transz- 
formálni, akkor az STR$ függvényt kell 
használnunk (pl. I; STR$(I)). A transzfor- 
máció inverzét a VAL (STR$(1) Hú 
képezi, amit idézőjeles esetben is alkal- 
mazhatunk (pl. VAL (720")-20). Számok 


karakteres alakjával aritmetika műveletek 


ény 


nem végezhetők az "összeadást" kivéve, de 
az eredmény itt is eltér a megszokottól, 
mert pl. "197 4 7857 - "19857, ugyanakkor 


"197 5 85 eredmény nélküli művelet. 


051 Kódok és karakterek megfelelése. A CHR$ függvény használata. 


Módosítsa a P1O3-at úgy, hogy az ASCII kódok helyén karaktereik jelenjenek meg 


a négyszögben: 


5106 PRINT "::(KODOK ES KARAKTEREK "" 
565 IF JC32 THEN GOTO 80 

566 IF J5127 AND JC160 THEN GOTO 80 
570 PRINTZ4, X$ CHR$(J); 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT—1l6: 


198 


és 


s e 


HA B UJ MI EGY DO TI MÜ hr 
RT RED NN hüle 


At fs A EL a jet 
2 jet jea ea jen jet 


po 


új pon DD mm VÉN AR (0) Pi e 


Met a a ja A s 


min h 


575 GOTO 85 

580 PRINT£4, " fs 
585 NEXT J : PRINT$4 
SRUN  -Ild A 


AA — A kódok és karakterek táblázatai nyomta- 
tásban: 
4 tsa] [ej jé a 3. íg 113 úZ 13 14 15 
48 t4 88 SE liz 128 144 164 17£ 192 292 224 249 
43 65 §1 37 113 129 142 161 177 193 299 225 241 
39 66 öz 58 114 139 146 162 178 194 219 226 242 
31 67 33 59 1153 131 147 163 179 195 211 227 243 
sz EZ 944 108 11£ 1752 148 164 189 196 212 228 244 
ng 69 25 191 117 133 149 165 181 197 213 229 2 
J4 7 26 1982 11£ 134 158 166 182 158 214 239 246 
sittre 97 193 1153 133 151 167 183 199 215 231 247 
JE 7z 88 lü4d izf 159£ 152 168 184 298 216 232 248 
ar 73 89 1983 121 127 153 1689 185 291 217 233 249 
aa 74 -7ú 156 íZz2 128 154 l1rH 186 282 218 234 250 
29 75 391 1987 123 139 153 171 187 203 219 235 251 
A 76 95972 1988 124 144 156 172 188 284 229 236 252 
Bi Té 934 149.125 141 1597 173. 199. 205 221 287 293 
sz o 7§ 34 118 126 147 158 174 190 20E 222 238 254 
63 73 §5 111 127 143 159 173 191 287 223 239 255 
4 ser 6 ; a B 4j0 11. ÍZ az 14 15 
fal (8 F gú "a fú si "1 
1 A C1 baj Ű zi ka . [ 
úr Had E l —- na spy l ee " 
a [a ke. §a út ja 4 si w B 
4 IN T bő l zés l sz l d 
sz E u é l I Vá v l 
[53 F we ke xx És I — A fd 
65 a 14 l m [j b l ha) l 
7 H AA I hai s l mh fas 
192] Il id Íge: l Fr ma kj l pr 
al. ül 4 I .J 18 Ld íj 
HK C sp E u fel s u Ek 
68 ni L. tj u s Úa É u 
az H 2) l L ad b. a I Lt 
Ki H T TE " ii V 1T 5. 
5 "I dm És ök "a FF "a tá 
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ABC: NEM 3 

HTZ: NEM 

TEXAS: NEM X 

PRIMO: CHRÉ(8) nem értelmezett CHR$(14) ECHR$(87) CHR$(DX CHR$(15) s 
CHR$(64)X CHR$(16) ETAB( ) 4 CHR$(17) UPPER: CHR$(18) nem 
ért X CHR$(26, 145, 146) nem ért X CHR$(62) dült karakterek f CHR$(45) 
CHR$(1) aláhúzott krakterek 4 CHR$(82)  CHR$(2) Cirill krakterek 

TV COM: CHR$(8) nem graf  CHR$(13) ELPRINTX CHR$É(16) ESTRING$(N," lé éri 
5CHR$ (17, 18, 26, 27) nem értelmezett CHR$(9) vízszintesen tabulál 3: 
CHR$(11) függőlegesen tabulálf 

VT—-—16: CHR$(8) z CHR$(27) CHR$(14) F CHR$(16)-TAB( )X CHR$(17) 


CAPS LOCK:  CHR$(18) nem értf CHR$(26)-ASTRING$S(N, 


CHR$(K)) CHR$(27) CHR$(76) 12 sor/2,5 cm : finom sorfelbontás £ 
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5CHR$(8) 

5CHR$X(10) 
5CHR$(13) 
5CHR$(14) 
5CHR$X(15) 
5CHRX(1 6) 
5CHR$(17) 
5CHRX18) 
5CHR$(26) 
5DCHR$(27) 


— A CHR$ függvény a Ó,..., 255 kódokhoz 
karakter megfelelőiket rendeli hozzá. A 
karakter  négyszögből látható, hogy a 
96—127 kódok a 192—233 kódok karakte- 
reivel rendre megegyeznek. Hasonló a 
helyzet a 169—199 és 224—254 kódokkal 
is. A négyszögből láthatóan 4 oszlop hiány- 
zik. Ezeket a 2365 utasítással kizártuk, 
mert egyrészüknek nincs karakter megfelelő- 
je, másrészük viszont nem karakter, hanem 


vezérlő kód pl.: 


: A GÉPET GRAFIKUS ÜZEMMÓDBA ÁLLITJA, 

: SORKÖZT GENERÁL, 

: SORVÁLTÁST GENERÁL, 

: DUPLASZÉLES KARAKTER ÜZEMMÓDRA ÁLLIT, 

: NORMÁL KARAKTERES MÓDRA VISSZAÁLLIT, 

: NYOMTATÁS POZICIONÁLÓ, 

: LEVELEZÉSI KARAKTERES MÓDRA ÁLLIT, 

: NEGATIV KARAKTERES MÓDRA ÁLLIT, 

: KARAKTERISMÉTLŐ NYOMTATÁSI MÓDRA ÁLLIT, 
: NYOMTATÁSI KÉPPONT POZICIONÁLO ELEM, 


SCHR$(145) : NORMÁL KARAKTERES MÓDRA VISSZAÁLLIT, 
SCHR$(146) : NEGATIV KARAKTERES MÓDRÓL VISSZAÁLLIT. 


— Az utasítások hatását egy nyomtatási prog- 


ramon tanulmányozzuk: 


Nyomtassa ki a saját nevét, a printer "betűkészletét" kihasználva különböző for- 


mákban és pozíciókban: 


ABC: NEM £ 

HTZ: NEM i 

TEXAS: NEM § 

PRIMO: 510 törölvef 540 LPRINT CHR$(27) CHR$(87) CHR$X(1) : LPRINT 
"40"; "VARGA" £ 545 LPRINT CHR$(27) CHR$(87) CHR$(1) 
CHR$27) CHR$(62) : LPRINT "745" ; "VARGA" : LPRINT CHR$(27) 
CHR$(64)X 550 LPRINT "507 TAB(20) "VARGA" : LPRINT CHR$(27) 
CHR$(87) CHR$SO)Z 560 LPRINT 7607 TABAID 7 74 

TV COM: 510 X$-CHR$(15)X 530 PRINTS4 :"307; "VARGA" : LPRINT : 
PRINTá4 : "JOZSEF" : LPRINT $ 540 PRINTZ4 : "40" ; CHR$(14); 
"VARGA JOZSEF" ; X$$ 550 PRINT-4 : "50" ; CHR$É(14) ; STRING$ 
(20, " "); "VARGA JOZSEF" $; 560 lásd 5509 ] LOCK SHIET [ 570 
PRINTi4 : "7097; "vargaj" LOCK] 590 PRINT4 : 79097; "VARGA?" 
; CHR$(9); JOZSEF"£ CHR$(9) helyett próbáljon CHR$(1 1), vagy 
STRING$(3Ó, CHR$(127))-el dolgozni $ 

VT—-16: 530 : PRINT4$4, 7" " £ 550 PRINT$4, 7507; CHR$(14) TAB(20) 
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"VARGA JOSEF"£ 570 PRINT$4, 770" ; "varga jozsef"? 
580 PRINT3H4, "807; CHR$(14) "varga"? [CAPS LOCK]: 590 
PRINT-4, "997"; CHR$(27) CHR$(14) "VARGA JOSZEF" X$ £ 5100 és 
5110 helyett állítsa be az alábbiakat : 3100 PRINT:$4, STRING$ (20, 
CHR$(95)) "VARGA" STRING$ (20, CHR$(95))JZ 5110 PRINTS4, 
STRINGÉ(4Ó, " ") "VARGA" 


5 NEW 
55 — PRINT 7"(NYOMASPROBA Ft" 

5109 OPEN4.4 : X$-CHRX(15) 

529 PRINTf4, 7207 "VARGA JOZSEF": PRINT34, CHR$(10) 
530 PRINT84, "30" ; VARGA" CHR$É(13) "JOZSEF" : PRINTH4 
540 PRINTf4, 740" ; CHR$(14) "VARGA JOZSEF "X$ 

550 PRINT 4, "50 ; CHR$(14) CHR$(16) "20 VARGA JOZSEF" 
560 PRINTs4, "60" ; CHR$ (16) "109 VARGA JOZSEF" X$ 

579 PRINT$4, 770" ; CHR$ (17) "VARGA JOZSEF" X$ 

580 PRINTz4, "80" ; CHR$(14) CHR$(17) "VARGA" X$ 

590 PRINTZ4, "90" ; CHR$(18) "VARGA JOZSEF" XS 

5100 PRNTI34, "100" ; CHR$(17)CHR$(18) "VARGA JOZSEI"" XS 
5110 PRINTs4, 71107 ; CHR$(14) CHR$(18) "VARGA JOZSEÉF" XS 
53120 CLOSE4 : END 

5RUN 


AA — A nyomáspróba eredménye: 


ZAVAEGA JÜZSEF 


39/ARGA 

JÖZSEF 

JO/REGA -TOZSZEF 

29 ÁFA IC ZSZ EF 
zi a] A FHEGHE I ZSZ EF 


rTúvarga iozsef 

905. -AarT- RA 

ci HboH Jaz Ek] 

1 ADSETSENEGYETJTÁ 

119464 a 1 Ső1E1 az EN d ta esd 5 ad 


Az eredményeket vessék egybe a kiváltó 
utasításokkal. Látható az egyes CHR$ 
és a CHR string-párok utasítás értéke. A 
CHR$ÉC(15) univerzális — feloldójel, — amit 
mindig ki kell tenni, ha más betűtípusra 


akarunk áttérni. 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


106 ] NEM F 


[706] nem : 


[106 ] NEM ; 


[106 ] NEM £ 


TV COM: 


VT—-16: 


204 


510 : DIM A$(AÍ: 520 XI$-STRINGÉ(S, ""):X28 -STRING$ 
(8, 7"? ): X3$-STRINGÉ(Ő2, ?" ):X4$-STRINGÉ(4, 7") :X5$- 
STRINGÉ(3, 7") :X6$-STRINGÉ(I6, "") $ 525 Y$- CHRÉ(127) 

530 PRINTs4 : CHR$(14); STRINGÉ(14, 7? 7") "SZEM..."$ 560 PRINT34 
:Y$; : FOR J-1 TO 4 : PRINT$4 : STRING$(16, CHR$(45)); Y$; : NEXT : 
LPRINT £ 570 PRINTé4 : Y$; XI$; AS(1); 


520 : X$-CHR$(127): — 53ÓPRINTit4, CHR$(14) TAB(14) "SZEM 
"CHR$(10) CHR$(I5) 3 560 FOR J- 1 TO 4 : PRINT$4, X$; STRING$ 
(15, CHR$(176)); : NEXT J : PRINT$4, X$.£ 570 PRINTj4, XSTAB(6) A$ 
(1) TAB(17) X$ TABC(19) A$(2) TAB (33) X$TAB (36) A$(3); £ 580 
PRINT/t4, TAB(49) X$ TAB(51) A$(4) TAB(65) X$ $ 590 azonos 560 
5110 PRINT:4, X$ TAB(17) X$ TAB(33) X$ TAB(49) X$ TAB(65) X$ : 
NEXT JG 


052 
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A grafika. Táblázatok készítése grafikai elemekből. A CHR$(16) használata. 


Irjon programot, 


amely címet, keretet, feliratokat és oszlopelválasztó vonalakat 


nyomtat a P90 személyi nyilvántartáshoz: 


bé 2NEW 


510 
520 
530 


540 


260 


570 


580 
590 


PRINT "FTABLAZAT FORMALIZALAS tt" 

OPEN4,4 : X$ - CHR$(16) 

PRINT34, CHR$(14)X$ "14 SZEMELYZETI 
NYILVANTARTAS" CHR$(10) CHR$(1 5) 

FOR I-1 TO 4 : READ A$(1) : DATA NEV, VEGZETTSEG, 
MUNKABER, GYEREKEK SZ : NEXT I 

PRINT As d Tee pee TETT TEAT ST VM 


PRINTi4, X$-001" ; X$7OSTA$(1):X$7161 " ; X$ 

"18" A$(2) ; X$ "321" ; X$ "35" A$(3) ; 

PRINT3t4, X$ 7481" ; X$ 7507 A$(4) ; X$ "6417" CHRÉ(15) 
PRINTZÉ4, "LL észt aeteszénsésszá éa ettő 


5109 FOR J-1 TO 10 
5110 PRINT-4, X$ 7000"; X$"71617;X$ "3217; X$8 


"481" ;X$ 64U :NEXTK 


5120 CLOSE4 : END 
x SRUN -ld A 


AMA — A táblázatokat a programírás előtt gondosan 
meg kell tervezni. Ebben az adatoszlopok 
és a fejléc szélessége, a cím kezdő pozíció- 
ja és betűtípusa, a fejléc grafikai elemei 
(pk..-F osz gs ela b ae Iéspozícióik, a 


feliratok kezdő pozíciói és betűtípusaik, 
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ABC: 


HTZ: — 


TEXAS: — 


PRIMO: — 


TV COM: X28;Y$; X3$; A$(2); X4$; Y$; X5$; A$(3); £ 580 PRINTS4 : XI1$; Y$; X3$; 
A$(A); XS$;Y$á Az XI$, ... szóközöket jelöl ki 4 390 Lásd 560, de CHR$ 
(45) helyett CHR$(95) szerepel £ 2110 PRINTÁ4 : Y$; : FOR L-1 TO 4 : 
PRINT44 : X6$ ; Y$ ; : NEXTL : LPRINT : NEXT Jf 


VT—-16: A grafikai elemek ASC kódjaik (pl. 172—191 stb) alapján vihetők be a . program- 


ho 
baX 
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valamint a táblázat hossza kerül eldöntésre. 
A PlÓ6 például az alábbi tervből (részlet) 
indult ki: 


"147" SZEMELYZETI NYILVANTARTAS 


l pg 


j Hga?? 


] "187vegzettseg ] "35 /munkaber 


Tudjuk, hogy a grafikai elemek a klaviatúra 
útján vihetők be a gépbe (a gombok hom- 
lokzatán találhatók négyzetekbe foglalva). 
A baloldali homlok jel a [ 8] a jobboldali 
pedig a gomb közreműködésével 
aktiválható. A grafikai elemek önállóan vagy 
konfigurációkban jelenhetnek meg (pl. 560). 
Mindkét esetben karakter konstansként 
kezeljük, vagyis idézőjelbe tesszük őket. 
A fejlécen elhelyezett feliratokat READ-del 
olvassuk be a gépbe (340) és CHRXK(1 6)-al 
pozicionálva íratjuk ki a printerrel (270 ; 
580). A printer ugyanazt a sort csak egyszer 
érinti, ezért a feliratok és elválasztó vonalak 
felváltva szerelepnek a megfelelő utasítások- 
ban (276 ; 5280). Mivel mindent pozícionálni 
kell az ilyen szerkesztésnél, a CHR$(16)-ot 
célszerű rövid jellel (pl. X$) azonosítani. 
A pozicionálás idézőjelbe tett és X$ után 
elhelyezett kétjegyű számmal valósítható 
meg. Szöveg pozicionálása esetén az idéző- 


jelet a szám előtt és a szöveg után elegendő 
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ABC: NEM? 


HTZ: NEM £ 


TEXAS: NEM £ 


PRIMO: NEM; 


TV COM: — 


VT—I16: 5340 B - CVI (B$) : M - CVS (M$) : G - CVI (G$) : GOSUB 600 £ 5350 
PRINT 74, X$ TAB(6) LEFT$ (N1$, 10) TAB(17) X$ TAB(19) B ; TAB(33) X$ 
TAB(36)" ";$£4 5355 PRINTÁ4, USING "ZEEHHETEHHE 4"; M ; : PRINT:4, 
TAB(49) X$ TAB(51) G ; TAB(65) X$ $ 5500 FIELD, 30 AS NI$, 3 AS 
B$, 9 AS M$, 3 AS G$ 45510 GET, IX 57009 OPEN" R ", $£1, "SZEMELY- 
ZETI", 45 
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kitenni (pl. "ÓÓ !), de a karakter változó- 
kat ki kell vonni az idézőjel alól (pl. 7957 
A$(1)). Ez utóbbi vonatkozik a számokra és 


numerikus változókra is. 


107 Egészítse ki a Pl1Ó6-ot olyan utasításokkal, hogy alkalmas legyen disk-re rögzített 
"SZEMÉLYZETI" anyag kinyomtatására: 


5160, 119, 120 RET 


5300 PRINT "A RELATIV FILE BETOLTESE ES NYOMTATASA " 
5310 GOSUB 700 
5320 INPUT "HANY REKORDOT NYOMTAT?" ; R 
5330 FOR I-1 TOR : GOSUB 500 
5340 INPUT$107, N$, B, M, G : GOSUB 600 
5350 PRINT34, X$ "001"; X$ "03" N$ ; X$ "161" ; X$ 723" B ; 
KP 32 s 
5355 PRINTí4, X$ "37" RIGHT$ (" "-:STR$É(M), 5) 
; X$ 7481"; X$ 7537G ; X$ 7641" :NEXTI 
5360 CLOSE 107 : CLOSEI5 : CLOSE : END 
5500 H - INT (1/256) : L-I—H " 256 
5510 PRINT$I1S5, "P" : CHR$(5) ( CHRÉK(L) t CHR$(H) rt CHR$(1) 
5520 RETURN 
5600 INPUT$15, EN, EM$, ET, ES : IF EN C SÓTHEN PRINT EN, 
EM$, ET, ES 
561Ó RETURN 
5700 OPEN 15, 8, 15 : OPEN 107, 8, 5, "SZEMÉLYZETI" 
5710 RETURN Í 
x SRUN  -[Íd A 
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ABC: — 


HTZ: — 


TEXAS: — 


PRIMO: — 


TV COM: NEM 


VT—16: A 5350 utasításban LEFT$ (N1$, 10) a neveket balra igazítja, a TAB(36) " "; 
pedig a PRINT34, USING kezdetét pozicionálja £ 
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— A kiegészítés a P9Ó utasításaiból adódik. 
Hiszen a "SZEMÉLYZETI" file adatait be 
kell tölteni a gépbe, hogy azután nyomtat- 
hassuk. A betöltést a 334 kezdeményezi. 
A 5350 és 5355 utasítások a rekord-ok 
adatait a táblázat megfelelő rubrikáiba sorol- 
ják, ugyanakkor tovább építik a keretet is, 
helyettesítve a Plb6 5100 és 5110" utasí- 
tásait. 

— A futás próba meglepő eredményre vezet, 
amennyiben a rekord-ok az első oszlopba 
sorolódnak, pedig adataikat külön-külön 
pozicionáltuk, mégpedig N$-et az első, 
B-t a második stb. oszlopokba. Ennek a 
hibának a magyarázata a relatív file termé- 
szetéből adódik. A relatív file a rekord ada- 
tait karakter konstanssá egyesíti a lekérde- 
zés számára. Ezért alkalmaztuk az INPUT3t 
utasításokban az A$ változót a P89 és P9Ó 
esetében. A mostani 2340 utasításban 
felesleges a B, M és G kiírása, hiszen N$-be 
tölti a program a rekord-okat. Ha pl. B-vel 
kezdődött volna a rekord és INPUT:1 B, 
N$, M, G betöltést alkalmaztunk volna, 
sikertelen vállalkozás lett volna. A relatív 
file  rekord-jaiban foglalt adatok akkor 
kezelhetők külön, ha a rekod-ból kiemel- 
jük. Erre szolgálnak a már ismert LEFT$ 
és RIGHT$ függvények, valamint a MID$, 
ami a karakter konstans belsejéből képes 
kiemelni karakter szeleteket. A kiemelés 
csak akkor lesz pontos, ha tudjuk az adatok 
helyét a string-ben. A P67-nél megmutattuk 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


NEME Lásd 121 


ax 


NEM f Lásd 121 


xx 


áá 


NEM ; Lásd 121 


A CHR$(27) használata bizonytalan, ezért karakter grafikát alkalma- 


TV COM: 


zunk$ 510 törölvek 220 LPRINT TAB(12) "MASODFOKU FUGGVENY" 
530 LPRINT TAB(14) "7973; 560Y-1013 tXIT2-2tX—IX; 570 —580 
törölveg 5290 LPRINT RIGHT$(" ":STR$K(X), 4) TAB(Y) 7 tg 

511Ó END £ 


510 törölve 520 PRINTS4 : CHR$(14); STRING$(12, " "); 


VT—-16: 


2.12 


"MASOD . . . " £ 530 PRINTÁ4 : CHR$(15); STRING$ (10, 77); 0 
5606Y-10-3tX.2121X-I£ PTÖIFY.C5SORY53 77 THEN 100: 
580 törölve 590 PRINT3á4, USING Öztté.4F" : X ; : PRINTá4 : STRING$ 
(Y—4,7 00). 


56Y-I10--(3tX42521X—ID); 570IFY C-5ORY 577 THEN 
1004 580 töröld 5290 PRINT-4, RIG HT$ (7? ":STR$(X), 4) TAB(Y) 7.) 
5110 CLOSEzt4 :g 


a megoldást, ami nemcsak kazetta, hanem 
disk esetében is célravezető. Az alkalmaz- 
hatóság szekvenciális és relatív file-ok eseté- 


ben is fennáll. 


Tervezzen különböző tartalmú és formátumú táblázatokat. Irjon rögzítő programo- 


108 


A € 


kat és alkalmazza azokat: 


Függvények grafikus ábrázolása. A CHR$(27) használata. 


Irjon programot a 3x?r12x—1 másodfokú függvény képének a [—2; 2] intervallum- 


ban való kinyomtatásához: 


x 53NEW 
y 510 OPEN44 
y 520 PRINT 34, CHR$(14) CHR$(16) "12 MASODFOKU 
FUGGVENY" CHR$(10) 
v 530 PRINT 4, CHR$(15) CHR$(16) "1070 
v 540 PRINT$4, "XV" S 
550 FOR X-—2 TO 2STEP 0.1 : X-INT(IÓ"X 6.5) / 10 
y 560 Y-6"rI0r 6 "(3rXT2r2rX—1) 
-y 570 IF Yca6OR Y53474 THEN 100 
580 H-INT(Y/256) : L--Y—Ht256 
! 590 PRINTH44, STR$(X) r: CHR$(27) : CHR$(16) : CHRS(H) - 
CHR$(L) """ 
5100 NEXT X 
v 5110 CLOSE4 : END 
k SRUN  -[d A 


213 


ABC: — 


HTZ: — 


TEXAS: — 


PRIMO: A TAB funkció printer esetében térközt generál, tehát nem az első pozícióhoz 
igazodik , 


TV COM:  — 


VT-16: — 
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— A printer alkalmas függvény grafikon nyom- 
tatására is. Programozási szempontból egy- 
szerűbb, ha a koordináta rendszert 909-al 
elforgatjuk, vagyis az X tengelyt függőleges, 
az Y tengelyt pedig vízszintes helyzetűnek 
tekintjük. Első közelítésben a tengelyek 
elhelyezését is csak érzékeltetjük azáltal, 
hogy kitűzzük az Y-Ú helyet (330); [itt állna 
az X tengely] és az X szóbajövő értékeit 
a nulladik oszlopba nyomtatjuk [ahol X-0, 
ott feküdne az Y tengely]. A függvényérté- 
ket a 560 utasítás számolja az X-re vonat- 
kozó FOR ciklusra támaszkodva. 

— A függvényérték számításhoz tudnunk kell, 
hogy a printer 8Ó karakter pozíciót ural. 
Minden karakter pozícióban 6 oszlopot 
(mini-karakter) és minden mini karakter- 
ben 7 pontot (mikro-karakter) különböztet 
meg. [Igy egy printer sor 7480 elemű pont- 
mátrixnak tekinthető. 

— A függvényértéket mini karakterben kell 
számolni. A függvényérték abszolút (6fY) 
és relatív (6?"D-6rY) módon számítható. 
Az abszolút az X tengelyt a ÓÓ, a relatív 
pedig a D-edik karakteren fekvőnek tekinti 
(példánkban D-10). 

— A 570 utasítás a printer-t védi a lehetetlen 
végrehajtású parancsoktól. 

— A 580 és 590 utasítás a printer-t pozícionál- 
ja az X helyettesítési értékének (STR$(X)) 
és a  függvényértéket hordozó pontnak 
(77) a kinyomtatásához. A két utasítás 
hasonlít a pointer pozicionálásánál meg- 
ismert utasításokhoz. A 270—290 utasí- 
tások szubrutint képeznek. 


215 


ABC: 


Lása [121]? 


TEXAS: 


PRIMO: 


TV COM: 
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Lása [ZT]: 


[765] tása DETJ: 


552 LPRINT RIGHT$(" ":STR$(X), 4); 3 555 FORC-—5TO3k 
DTÖIFYC4ORY 541 THEN95£ 5801FC5—5THEN923 585A-Yf 
5909 LPRINT TAB(Y) " t" ; §5921FY— A C- 0 THEN 95 $ 593 LPRINT 
TAB(Y—A) " $7 3 594A-Y3 595 NEXT C : LPRINT; 


56Y-IdDL3tXA2r2rX:.C $ S8bIFCS—5THEN90 

585 PRINTs4, USING ?zt4t.4" : X ; : PRINTÁH4 : STRING$ (Y—4, 7? ?);7.; 
: GOTO 95 $ 590 PRINTS4 : STRING$ (.1,7 " 
595 NEXTC : LPRINT § 


E 2 NB 2 NE 
); 9 


560Y-I0-BrYXA2521X:O)$ D801FC5—5 THEN 99 f 

585 PRINTs4, RIGHT$("? ":STR$(X), 4; § 590 PRINT$4, TAB(Y) CHR$ 
(44)X 395 NEXT C:PRINT34, " "3 Próbálja meg a printer hátoldalán lévő 
16 körmös kapcsolót egyenként felső állásba kapcsolni és printelni 


054 
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A görbesereg ábrázolása. 


Módosítsa a P1Ó8-at arra az esetre, amikor a másodfokú függvény 3x?-r2xrc alakú, 


ahol c a [—5 ; 15] intervallumban mozog: 


555 FOR C-—5 TO 15 
560 Y-6r10 4 6" (3:XI2:2"X 4 C) 
580 H-INT (Y/256) : L--Y—Hr256 : IF CC —5 THEN 90 
585 PRINT$4, STRS (X) ; 
590 PRINT$4, CHR$(27) : CHR$(16)  CHRÉ(W) § CHRS(L) 7? ; 
595 NEXT C 
x SRUN  -[d A 


VAVYAN — Kétváltozós függvényt a síkon szintvonala- 
ival tudunk ábrázolni. Az egyik változót 
Ó, 1, 2,... értékeken rögzítjük és az így ke- 
letkező egyváltozós függvényeket ábrázol- 
juk ugyanabban a koordináta rendszerben. 
Igy a kétváltozós függvényt jellemző görbe- 
sereg jön létre. 

— A görbesereg nyomtatása fordított eljárást 
igényel. Minden görbét egyszerre kell el- 
indítani és lépésről-lépésre kifejleszteni. Pél- 
dánkban a parabolák alkotnak sereget. A 
sereg elemei a C rögzített értékeihez kap- 
csolódnak. Ezért ágyazzuk be a C ciklust 
az X ciklusba. Ezért választottuk le X 
nyomtatását (385) a 590 utasításról. Az 


elemek sorozódását ;5-k biztosítják. 


ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT--16: 
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[110] Lása [121] 


Lása [ZT]: 


[110] Lása [121] $ 


520 törölvex 540 LPRINT TAB(15) N$ £ 550 LPRINT? 560 
LPRINT TAB(20) 707x 5270 LPRINT7X" 7—— —" 7 D1I9Y-IG-Y3 
DI2OIFY.C4ORY541 THEN ISÓ£ 5130 törölvex 5140 LPRINT 
RIGHT$(" ":STR$(X),DTAB(Y) 7.7 


520 REMg; 550 LPRINT £ 599 A lépéshosszot változtassuk £ 5106 
Y-N "SIN(X) g Az ordinátát nagyíthatjuk (N)i 51I1Ó9Y-206-YI 


PFÜZZÖN BE MAXIMÁLIS SZÉELESSÉGÜ PAPIRT A PRINTER-BE £ 
512 WIDTH" LPTI :" , 140X 526 OPEN"O", H4LPT1:"? £540 PRINT34, 
CHR$(1 4) TAB(15) N$ CHR$(10) £ 550 PRINT$4, " " £ 560 PRINT-4, 
CHR$(15) TAB(2Ó) DF SII19Y-2Ó-Y.£ PIZÓIFYCa-5ORY5 140 
THEN 1509 X 5130 PRINTit4, RIGHT$(" ":STR$(X), 4); k 3140 
PRINT34, TAB(Y) 7.7 
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Irjon alkalmazói programot egyváltozós függvények grafikonjának a nyomtatására: 


§ 23NEW 


510 PRINT """FUGGVENYEK NYOMTATASA FF?" 
515 PRINT "100-AS CIMKEVEL KOPOGJA LE A FUGGVYENYT 
: PL. Y- Xt2—SIN(X) MAJD RUN29" 


216 STOP 


526 OPEN4, : X$ - CHRÉ(1 6) 
530 INPUT "A FUGGVENY NEVE? " ; N$ 
540 PRINTf$4, CHR$(14) X$7157" N$CHR$(19) 


550 PRINTH4A 


560 PRINT34, CHR$(15) X$ 72070 


57Ó PRINTH4, XI " 


580 INPUT "AZ X HATARAI?" ; A, B 
590 FOR X-A TO B STEP ..! : X-INT (10£X-.5)/10 


2319Ó REM 
5110 Y-6"(20-Y) 


2120 IF Yg6 OR Y2474 THEXN 150 
2130 H-INT (Y/256) : L-Y—Hr256 
2140 PRINT34, STR$(X) r CHR$(27) : X$ - CHR$(H) 1 


:CHR$X(L) "7." 
215Ó NEXT 
2160 CLOSE4 : END 
x SRUN  -[d A 
AJ — A PlIIÓD fregoli program, mert a 316 STOP 


alatt akarmilyen egyváltozós függvényt (pl. 
XIN; Xt(—-N); (1—Xt2)t(1/2); ABS(E(x)), 
COS(E(X)); . EXRC(FX));  INT(E(X)); 

LOG(X), SOR(FCX)); XCT), YCI) stb.) 


bevihetünk a programba (értékadó utasítás 
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ABC: 111] NEME 


HTZ: NEM § 


TEXAS: [111] 520 PRINT "A GYOKJEL MINI KODJAI 8x2-es BONTÁSBAN: 
0,F,C,8,4,8,4,8,2,8,2,8,1,8,1,87 4 325 X$-"0FC848482828 
1818" £ 530 CALL CHAR (140, X$) f 535 CALL HCHAR (5, 1, 140, 32) 
D4Ó END; Lásd 4. számú melléklet ; 


PRIMO: NEM f Képernyőn megoldható 


TVCOM: [111] NEM É Képernyőn megoldhatók 


VT—16: NEM £ 
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055 


111 


1099-as címkével) és RUN 29-al elindíthat- 
juk a nyomtatását. A programban az X 
tengely pozíciója kötött (20), de RUN 29 
előtt módosítható a 26Ó és 2110 utasí- 
tásokban. 

— Ha a függvényt különböző intervallumokban 
akarjuk vizsgálni, akkor RUN2Ó-al isméte- 
lünk és az X határait módosítva adjuk meg. 

— Ha a függvény X(T), Y(T) alakú, akkor 
IÓÓ alatt X-X(T) : Y-Y(T) értékadó utasí- 
tásokat adjuk meg. Változik 5290-ben a 
ciklus paramétere is (FOR T -). 


Karaktergrafika. A CHR$(8) használata. 


Irjon programot a gép karakter készeltéből hiányzó jel, például a gyök jel kinyom- 
tatásához: 


x 5SNEW 
5106 PRINT "(KARAKTER GRAFIKA ft" 
520 OPEN4,4 : X$-CHR$(8) 
525 FOR I-1 TO 80 
530 PRINT34, X$-(CHR$(13Ó4CHR$(2544CHR$(255YCHR$É(I1 294 
:CHR$(129-CHR$ (130); 
535 NEXT : PRINT$4, CHR$(15) 
540 CLOSEA : END 
x SRUN  -ÍdH A 


AA — Az elképzelt karakter nyomtatásáát a 
CHR$É(8) vezeti be, ami grafikus üzemre 
állítja át a printer-t. Az ezt követő strin- 
gek a gyökjel által lefedett mini és mikro 


karaktereket adják meg. A megadás mini 
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ABC: 


TEXAS: 


PRIMO: 


TV COM: 


VT-16: 
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karakter kódokkal történik. Ennek meg- 
értéséhez rajzoljunk ki egy printer karak- 


tert részletesen: 


123456 123456 
l öG6öGGÖ 1 0060.00 
2 506566 B 2 9... ec0£. 
4 O0OBGÖGG 4 066000 
8 GO GGŐ 8 o60€e.000 
[6 69665606060 16 08060000 
32 ÖÖ HŐGB 32 06.000 
ót GGGGGÖ 64 o0o686é.OOoO 


A mikro karakterekhez helyiérték mutatók 
(I, 2, 4, 8, 16, 32, 64) tartoznak. Ezek 
összege a mini karakterekben 127. Ennek 
nincsen jelentősége. Ha berajzoljuk a karak- 
ter mezőbe az általunk elképzelt jelet, az 
meghatározott mikro karaktereket lefed. 
Ha a mini karakterekben a jel foglalta 
mikro karakterek helyiérték mutatóit(pél- 
dánkban: 2, 126, 127, 1, 1, 2) összeadjuk; 
majd az összegeket 128-al még megnövel- 
jük (példánkban: 130, 254, 255, 129, 129, 
130), akkor jelünk mini karakter kódjait 
nyerjük. A mini karakterek sorrendje kötött. 
Ezt a string-ek összeasásánál (330) érvé- 
nyesítjük. A string-ek összeadása tehát nem 
kommutatív. 

A grafikus üzemmódból CHR$É(15)-el kell 
kilépni. Enélkül a printer nem teljesít továb- 
bi normál (pl. LIST) utasítást. 

Az utóbbi programokból észre kellett 
venni, hogy a CHR$ függvénynek számos 
funkciója van: ASCII kódokhoz rendel ka- 
raktereket, karakterek pozícióját, jelek 
karakterét stb. hozdozza. Funkcióváltók a 
CHR$(8), CHR$É(1 6), CHRÉ(27) stb. 
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ABC: NEM; 


HTZ: NEM 3 


TEXAS: NEM £ 


PRIMO: NEM íz 


TV COM: NEM : 


VT—16: NEM £ 
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o Dolgozzon ki mini karakter kódtáblázatot az Ön által használt, de a gép karakter 


készletéből hiányzó jelek (Cirill, Görög, Gót stb. betűk; műszaki, matematikai, zenei 


stb. jelek) grafikus nyomtatásához pl.: 


112 Irjon alkalmazói programot olyan írás nyomtatására, ahol számok, gépi karakterek és 


saját kódolású grafikai jelek is szerepelhetnek: 


§ 2NEW 


510 
520 
530 
540 


550 
ID 


290 
595 


PRINT "VEGYES KARAKTEREK?" 

OPEN4 4 : X$-CHR$(8) 

IF I-40 THEN I-II 

PRINT "NEM SZAM KOVETKEZIK? : 0, SZAM? USSE LE AZ 
A BETUT" 

D$-" " :GETDS$ : IF D$ 57 "AND D$-707 THEN 86 
IF D$-" "THEN 50 4 

INPUT "KOPOGJA LE A KOVETKEZO JEGYET" ; N 
U$-STR$(N) : GOSUB 150 

GOTO 30 

PRINT "SAJAT JEL? : 10, HA GEPI JELAZT USSE LE!" 
D$- 7" " : GETD$ : IF D$ C5" "AND D$-107 THEN 110 
IF D$-" "THEN 90 


5100 U$-D$ : GOSUB 159 

5105 GOTO 30 

5110 INPUT "SAJAT JEL KODSORA? " : KI, K2, K3, K4, KS, K6 
5120 G$-CHR$(K1-CHR$(K2)--CHR$(K3-CHR$(K4XCHRÉCK5) 


CHR$(K6) 


5125 J-6"(I—INTKI[/180)"80) : H-INT(J/256) : L-J-H"256 
5130 P$-CHR$(27-CHR$(16-CHR$(HYCHRXKL): 


U$-X$8$-P$-G$::CHR$(J/6YCHRÉ(1 5) 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT—-16: 
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5140 GOSUB 150 
5145 GOTO 30 


5150 I-L1 : IF I C40 THEN T$-T$-U$ : RETURN 
5160 PRINT:4, T$ r U8 : RETURN 


5170 CLOSE4 : END 
2RUN 


— A program akármilyen ABC-t és jeleket 


használó szövegek soronkénti nyomtatására 
alkalmas. A program utasításai számokra, 
gépi és grafikai karakterekre irányulnak, 
az első kettő a GET-re, a marmadik pedig 
a karakter grafikára alapoz. Számok, gépi, 
illetve grafikai karakterek bevitelét a 560, 
590, illetve 5110 utasítások oldják meg. A 
számok jegyenkénti input-tal, a gépi karak- 
terek egyenkénti GET utasítással kerülnek 
a gépbe. Ez utóbbi a "0" grafikai karakterré 
nyilvánítását vonja maga után. A grafikai 
karakterek 6-6 mini kódja közös input- 
tal jut a gépbe. A bevitt elemeket U$ válto- 
zóba (365, 5106, 5130) olvassuk be, majd 
rendre T$-ben összegezzük. Igy a karakterek 
az előgyűjtő sorban gyülekeznek és 80 
vagy ennél kevesebb (itt 40) elemű sorokat 
egyszerre nyomtatunk (53160) ki. Ettől 
a gyűjtő besorolástól függetlenül a grafikai 
elemeket pozicionálni kell. (3125, 5130) 
a grafikus mód CHR$(8)-al kezdődik, a 
kilépést CHR$X(1 5)-el kell biztosítani. 
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ABC: 


520 törölvei 540, 550 törölvek 580 DIM S(N) : FOR1- 0 TO 
N-I$ 590 PRINT "A KOVETKEZO ADATOT KEREM" : INPUT S() : 
IF S(1) 5 - 49 — D — LEN (NUM XA (S(1)) THEN S(1) - 0 £ 595 NEXTI $5100 
FORK-1 TO 24 : PRINT: NEXTK$ 5105 FORI-ÓTON—1£$ 5116 
PRINT CUR (3-I, DG TIZ 


HTZ: 


520 törölvek 540; 550 törölvef 580 FORI-ÓTON-1K 5100 
NEXTI:CLS£ 119 FORI-ÓTON—1:PRINTT I; $ 5115 FOR J-I 
TO S() : IF JSS(I) THEN 130£ 5120 SET(2YD:J,1:3"0D:NEXTJ 

5130 PRINT f CLS törli a képernyőt; 


TEXAS: 


PRIMO: 


TV COM: 


VT-16: 
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520 DIM S(100) £ 540; 550 törölve 590 INPUT?":SD E 5100 
NEXT I :: CALL CLEAR$ 5110 FORI-OTON- I : : DISPPLAY AT 
(I 11) : T-1$ 5120 CALL CHAR (140, "FFFFFFFFFFFFFFFF") :: 
CALL HCRAR (I : 1, D, 140, S(D) 5130 DISPLAY AT (I:1, D.S(1)) : S(D 3 
5150FORK-ITO1IE4::NEXTK? 


Képernyőn oldjuk megf 530 PRINT "MEGJELENITES" 540 —50 tö- 
rölvek 575 0 - LEN (STR$ (T5N)):IFD.C6rOTHENPRINT"D5"6rO 
: GOTO 30£ 5P809FORK-OTON-Ii 5390INPUT "A KOV ADAT?"; 
S(K) : NEXTK£ 5395 CLSX 5PIÓÓFORK-ÓTON-—-1X 5105 IF S(K) 
5251 — D - 6 " (LEN (STR$(S(K))) 1 2 THEN 140 £ 


[113] 520 törölve 540, 550 törölveg 5100IF S 580 -D THEN 1403 
5120 PRINT$4 : STRING$ (D, " "); STRING$ (S, CHR$ (127): 5130 
PRINTH4 :" ";SX Ha D túlságosan kicsi (D C LEN (STR$ (T - ID), akkor sem 
ütközik a grafikon a 5110;-je miatt f — Oldja meg a feladatot képernyőre is 
Próbálja ki GRAPHICS 2 után is a programot 3 


ti ég 


520 OPEN "70", $4, "LPTI: "£ 530 :IFD C4ATHEN309? 540, 
50 törölveg 569 :IF T C0 THEN 60X£ 576 : IF N C-0p THEN 70 X 590 : 
IF SL THEN99£ 5199IFSZ136— DTHENI1409£ 5120 PRINT44, 
TAB (D) STRING$ (S, CHR$(255));X 5130 PRINT$4, " " SX Próbálja meg 
a 213Ó PRINT:44, SPACE$(2) S utasítást használni 4 Hagyja el 5120-ban a 
CHR$ karaktereket (STRING$É(S, 255)] § 


— A program kényelmesebbé tehető, ha a 
karakter kódtáblázatunkat, U$ tartalommal 
relatív file-ba rögzítjük. Ezesetben sorszám- 


mal hívhatjuk a grafikai karaktereket. 


056 Diagram grafika. A CHR$(26) használata. 
113 Irjon oszlopdiagram rajzoló programot egy tetszőleges idősorhoz-:— 
gi 53NEW 


5160 PRINT ""FOSZLOPDIAGRAM NYOMTATASfFt" 
520 OPEN4,4 : X$-CHR$(8) : R$-CHR$(26) 

530 INPUT"AZ X TENGELY POZICIOJA?" ; D 

540 H-INT (6tD/:256) : L-6y"D—Ht256 

550 P$-CHR$(27-CHR$(16$YCHR$(HXCHR$(L) 
560 INPUT "MELYIK AZ ELSO IDOSZAK?LP1980" ; T 
576 PRINT :INPUT "HANY IDOSZAK VAN? " ; N 
580 FOR I-TON-I :IF I-N THEN 150 

590 INPUT "A KÖVETKEZŐ ADATOT KEREM" ; S 
5100 IF S2480-—-6"D THEN 140 

5110 PRINTő4, STR$ (T:D; 

5120 PRINT:4, X8-P$-:R$-CHR$(S-CHR$(255) ; 
5130 PRINT$4, CHR$(15) 7" "S 


514Ó NEXTI 
5150 CLOSE4 : END 
x sSRUN  -[ld Aa 
AA — Az oszlopdiagram egy mini karakter 


(CHR$(255)) §-szer ismétlődő (CHR$(S)) 
nyomtatásával áll elő. A nyomtatás (2x120) 
grafikus üzemmódban, a mrnini karakter 
képének (CHR$(255)), a kép ismétlésének 
(R$) és az ismétlések számának (CHR$É(S)) 


a pontos megadásával zajlik). A diagrammot 
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5120 PRINT CUR 63 - I, D); CHRXÁ(151); : FOR J-1 TO S(1) : PRINT 
CHR XI (127); : NEXTJX 5130 PRINT CUR ( 3 £ I, D £ S(I) £ 1); CHR X 
(135)S(DX 515b EENDf 53100 törli a képernyőtf 5110 A 3 I, 1 pozíció- 


SET a képernyőt 9—127 oszlopra és 0—47 sorra bontja. SET (X, Y) az X-edik 


5110 PRINT STR$ (T £ K); 3 5115 PRINT TAB ((D:S(K))/6:1) 
S(K)X 5120 FOR I - 179 — (F—1)" 12 TO 179-F " 12 STEP —1 : FOR 
J-DTOD : S(K) : SET (J, D : NEXTJ,I:F-F:1X 5140 NEXTK : END: 


ABC: 
ba írja az adatot 5120 Lásd 4/1 számú mellékletet k 
HEZ: 
oszlop Y-adik elemét aktiválja. Szakaszok ciklussal aktiválhatók A 
TEXAS: — 
PRIMO: 
A TAB karakterre, a SET mikrokarakterre hat £ 
TV—-COM: — 
VT—16: - 
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balról az időszakkal (23110), jobbról pedig 
az adattal (3130) egészíthetjük ki. A gra- 
fikus üzemmódot természetesen fel kell 
oldanunk. A diagram pozitív és negatív 
adatra egyaránt vonatkozhat. Negatív eset- 
ben a tengely pozíciója 6"D-S. Ha tört- 
számokhoz nyomtatunk diagrammot, akkor 
INT(IÓTK"S) felszorzással és kerekítéssel 
élünk, ahol K-l,2,..., tekintettel a 5100-ra 


választható meg. 


A printer még további képességekkel is ren- 
delkezik, amikről nem beszéltünk. Próbál- 
ják meg például az OPEN4 4,7 : megnyitást, 
vagy CHR$(17)-et nem feloldani, illetve 
a CHR$(17)-et CHR$(145)-el párban hasz- 


nálni egy printer soron belül stb. 
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ABC: 3 A gép órával nem rendelkezik 


HTZ: § A gép órával nem rendelkezik X 


TEXAS: [114], A gép órával nem rendelkezik Z 


PRIMO: jö A gép órával nem rendelkezik § 


TV COM: [114], A gép órával nem rendelkezik £ 


vT-16: — [114] 3PRINT TIMER : SECUNDUM Tf Próbálja ki az alábbia programot 
510 LOCATE 25,2 : PRINT TIMES : GOTO 103 -RUN f Ha a bekapcsoláskor 
megadtuk a pontos időt, akkor a képernyő alsó sorában a pontos idő olvasható 
115 [ lásd ! 2 ] , vagy TIMES - "HH : MM : SS" . Ez utóbbi bármikor 
alkalmazható; 5PRINT TIME$ LENT]: -LPRINT TIMES £ 
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5. A GÉPRENDSZER BELSŐ ADOTTSÁGAI 


114 


115 


Állapítsa meg, hogy mennyi idő telt el a gép bekapcsolása óta: 
Hi 5PRINT TI RET 


AA — A gép a secundum 60-ad részében számlálja 
az időt, tehát 1 percet 3600 egységnek 


jelez. A TI időmérésre lekötött változó. 


Vigye be a gépbe az aktuális középeurópai időt, majd időnként kérdezze le a pon- 


tos időt: 
ka 2:NEW 
510 INPUT "MENNYI AZ IDO?" ; TI$ 
ök 23RUN 
II MENNYI AZ IDO?? 080546 II RET 
AA — Az aktuális időt óra—perc—másodperc-ben 
2—2 számjeggyel, elválasztó jelek nélkül 
kell bevinni. A pontos időt bármikor le- 
kérdezhetjük a bevitel után: 
ke SPRINT TI$ RET 


Ha a gépet kikapcsoljuk, a pontos idő 
törlődik. 
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ABC: SPRINT 641024 — (PEEK (65054) - 256"PEEK (65055) ( RETJ]J: 
A programozó BASIC területe 16 KB. A rekeszek 49152—65535 címeket vi- 
seliki 32767—49151-ig csak bővített géprendszerben dolgozhatnánk £ 32 KB 
a gép területe 


HTZ: (116! SPRINT FRE(0)Z — 5PRINT MEMZ A programozó BASIC területe 
152 KBi A 32 KB megoszlása: 0-12287 cím BASIC ROM; 12288—13823 
EXTENDED BASI( ROM: 13824--15359 klaviatúra; 15360—16383 video; 
16384—32767 az on BASIC területe 


TEXAS: 116] 5SIZE ÍENTERII A programozó BASIC területe 13,6 KB. Ez 
"MEMORY EXPANSION" nevű periféria bekapcsolásával 24511 BYTE-tal 


bővíthető (beszerezhető). 


PRIMO: 116 ) $PRINT FRE(0) ÍRETÍR A programozó BASIC területe 16 KB 
(32; 48 KB). Ebből 9271 BYTE program és adattár, 6144 BYTE a mikrografika 
területe, és a maradék a billentyűzet, magnetofon stb. kiszolgálására és nyilván- 


tartásokra szolgál f 


TVCOM: J116 SPRINT FREE ÍRETKR A programozó BASIC területe 32 KB 
(48, 64 KB). Ebből -25 KB program és adattár. A videót 16 KB támogatja X 


Rendszer nyilvántartások az első --7 KB-on találhatók b 


VT—-16: 116 J PRINT FRE (0) LENT [z A belső memória 256 KBYTE X Ebből 
az első 61454 BYTE az ön BASIC területe, ettől 65535 BYTE-ig regiszterek 
állnak. A maradék 192 KBYTE az operációs rendszerek és nyelvek (BASIC, 
PASCAL, FORTRAN, C) befogadására szolgál: Beégetett BASIC nincs § 
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116 Állapítsa meg, hogy a gép hány BYTE szabad kapacitással áll az Ön rendelkezésére: 


x SNEW 
4 SPRINT 641024" FRE(0) RET 


AA — A normál üzemre állított gép (bekapcsolás 
utáni állapot) 64 KILOBYTE (1 KILOBYTE- 
-1024 BYTE) kapacitású belső memóriája 
cím szerint az alábbi funkciókra van ki- 


osztva: 


ra IK A RENDSZER "NYILVÁNTARTÓ" 
1K 


i 2048 AZ ÖN BASIC TERÜLETE 


KÉPERNYŐ KAR. KÓD TÁROLÓ 


, 40960 BASIC ROM 49151 
; 49152 RAM 53247 


53248 GEÉPI- [155296 KÉPE. (COLOR 56295 


53248 VIDEO 53294 — ROM 65536 


— A FRE(0) függvény csak az Ön területét 
vizsgálja. Ha a gép üres 38909 BYTE szabad 
kapacitásról kap jelzést. Ha programot 
visz be a szabad hely csökken. Ugyanez 
áll elő, ha a programot futtatja és adatokat, 
műveleti eredményeket memorizál. 

— A gép 26K BYTE kapacitást foglal le. 
Ebben tárolja operációs rendszerét (6. sáv), 
az INTERPRETER (az Ön programját 
értelmező rutin) nyilvántartásait (1. sáv), 
a képernyő aktuális tartalmát (2. sáv) és 
itt biztosít munkaterületet alapműveletek 


(4. sáv) számára. A 6. sávban két regiszter is 
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ABC: 520 A DATA utasítás külön címkét igényel ? OK; 


HTZ: 540 " " string-et nem tud beolvasni. Irjon helyette mástX OK: 


TEXAS: 117 ] 10 törölveg 520 A DATA utasítás külön címkét igényel 22Ó FOR , 
521 DATA , x22 NEXT) OKf Awkarakter 1, a valós szám 8 BYTE-ban tároló- 
dik. Elméletileg 1741 valós szám, illetve 13928 "betű" rögzíthető a memóriábani 


PRIMO: 117 ] OKE 


TV COM: 510 DIM X(3), Z$(3) £ 530 törölve 560 INPUT A, C$ $ 580 DIM 
V (10, 10): 


VT—16: OK: 
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117 


helyet kapott. Ezek a képernyő kép és szín 


tartalmát rögzítik. 


— Több sávban találjuk a ROM megjelölést. 


Azokat a memóriákat nevezik így amelyek- 


be kitörölhetetlen, "beégetett" információ- 


kat rögzít a gyártó (pl. INTERPRETER): 


A beégetett információk 


is felülírhatók, 


de tartásuk időleges. A gép kikapcsolásakor 


visszaáll a beégetett tartalom. 


Tanulmányozza utasítások, változók és adatok kapacitás foglalását az alábbi prog- 


ramon (vigye be egyenként az utasításokat. Minden utasítás bevitelét kövesse a 


szabad kapacitás megmérése, majd a programrész futtatása után ismételjük meg a 


szabad kapacitás mérését): 


ká 


510 
520 


530 
540 


550 
560 
570 
580 


[e 590 


2NEW 


A-64"1024-FRE(G) 

FOR I-I TO 3 : READ X (1) : DATA 32767, 0, 
—32767 : NEXTI 

FOR J-1 TO 3 : READ Y?7 (J) : DATA 32767, 
0, —32767 : NEXT J 

FOR K-I! TO 3 : READ Z$(K) : DATA BOLHA, 
B," ":NEXTK 

PRINT "START OF PROCEDURE" 

INPUT A, BZ, C$ 

DIM U (190) 

DIM V2 (10, 10) 

DIM W$ (100) 


5100 END 


5PRINT FRE (4) 


2RUN 
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ABC: 118] 520 : INPUTA,F$ 530FORI-ATOF$ OK? 


HTZ: OK: 


TEXAS: 540 A PEEK függvény ilyen célra nem használható. Szerepe más £ 


PRIMO: Ha nemlétező címre kérdezünk OV hibajelet kapunk £ OK ; 


TV COM: OK: Ha ROM területet kérdezünk le, a VIDEO rekeszek tárulnak fel 
helyette 


VT—-16: 118 ] Csak az első 64 KBYTE kérdezhetőle ; OK; 
IOVER FLOW IN 40 IF 
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— Az elemzéshez vegyük figyelembe, hogy a 


karakter I, a valós szám 5, az integer típusú 
szám pedig 2 BYTE-ban tárolódik. A RUN 
utasítás törli az addig tárolt adatokat, tehát 
a 106; 19, 20; ...;19, 26, ... 1ÓD utasítások- 
ból álló, növekvő programok futása ku- 
mulált memória igénnyel jár, ugyanez nem 
vonatkozik a program utasításaira. 

Elméletileg 7782 valós, vagy 19455 egész 
típusú szám, illetve 38911 "betű" rögzít- 
hető a memóriában. Mivel az adatok a me- 
móriában változókhoz kötődnek, azok hely- 
foglalásával is számolni kell. Nagyméretű 
programok, illetve adathalmazok géprevitele 
esetén érdemes durva számvetést csinálni, 
mert ha a gép IOUT OF MEMORY l jelzést 
ad, akkor a munka memória hiány miatt fél- 


beszakad. 


A rekeszek feltárása. A PEEK függvény használata. 


Irjon programot cím szerint adott rekeszek tartalmának a kimutatására: 


§ 2NEW 


510 PRINT 7"F"A REKESZEK FELTARASA FF?" 
520 INPUT "A CIMLISTA ELSO ES UTOLSO ELEME ? " ; CA, CF 


530 FOR I-CA TO CF 


540 K-PEEK (1) : PRINT I ; K, 


5D5Ó NEXTI :END 


§ 2RUN 


ad 


A 
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ABC: Tanulmányozza az irodalomjegyzék [5] adatait 8 


HTZ: Tanulmányozza az irodalomjegyzék [6] — [8] adatait ; 


TEXAS: Tanulmányozza az irodalomjegyzék [9] adatait £ 


PRIMO: Tanulmányozza az irodalomjegyzék [11] adatait 


TV COM:  Tanulmányozza az irodalomjegyzék [13] — [14] adatait £ 


VT--16: Tanulmányozza az irodalomjegyzék [15] adatait £ 
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A PllI8 bármely rekesz (0—65535), vagy 
rekeszsorozat tartalmát kimutatja, Üsse fel a 
COMMODORE kézikönyv 160-ik oldalát, 
ahol a rekeszek rendeltetését részletesen 
ismertetik. Ebből válassza a rekesz címeket a 
model input-jához. 

A rekeszek vagy üresek, vagy számokkal 
vannak feltöltve. A gép kettes rendszerben 
tárol (számjegyei a Dés az 1), de 10-es-ben 
jelez ki. Egy BYTE 8 BIT-ből áll. Minden 
bit tartalma Ó, vagy 1]. A bit-ek helyiértéke 
10-es rendszerben számolva, jobbról-balra 
haladva 1, 2, 4, 8, 16, 32, 64, 128. Ha min- 
den lehető, 8 elemű ismétléses variációt 
elkészítünk ad és l jegyekre, akkor minden 
Ú és 255 közötti szám előáll 2-es rendszer- 
ben. A rekeszek tehát [0,255] intervallum 
egész számait hordozhatják. 

Minden gépi karakterhez [0,255] közötti 
kódot rendeltek. Ugyanaz a kódszám mást- 
mást jelenthet attól függően, hogy milyen 
memória sávban foglalhat helyet. Üsse fel a 
COMMODORE kézikönyv 133, 135, 139 
oldalait, ahol a képernyő jelek (1924-— 
2047 rekeszekben) a BASIC ASCII jelkódok 
(2048—40959) és a színkódok (53248— 
53294) azonosítását találja. A rekeszek tar- 
talma akaratunktól (program bevitele, adatok 
memorizálása, színezés előírása stb.), illetve 
a gép operációitól függ. A (0, 255] kódok 
között számos olyat is találunk, amelyek va- 
lamilyen speciális függvény argumentuma- 


ként megjelenve a gép üzemmódját váltják. 
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ABC: OK; 


HTZ: OK X 


TEXAS: NEM fg 


PRIMO: OK 


TVCOM  OKGx;mint [117] 


VT-I6: — 510 A-FRE(D) : GOSUB 200 £ 52209 INPUT "ELSO ES UTOLSO REKESZCIM 
: PL. 61610, 655357"; A, FE 
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MA A PII7 és 118 összeépíthető az alább látható 
módon. Az összevont program alkalmas a reke- 
szek aktív működésének a követésére, hiszen a 
rekeszek lekérdezését a Pl1l17 minden egyes 
utasításának a végrehajtása után ismételjük. 
(Célszerű egy futás alatt ugyanazt az A és F 


rekeszcímet ismételni): 


55 — GOSUB 200 

510 A-64":024- FRE(g) : GOSUB2OO 

520 FOR I-I TO 3 : READ X(I1) : DATA 32767, 0, —327 
67 : NEXT J : GOSUB 206 

530 FOR J-I TO 3 : READ Y94J) : DATA 32767, 0, 
—32767 : NEXT J : GOSUB20Ó 

540 FOR K-I TO 3 : READ Z$(K) : DATA BOLHA, B, 
" " : NEXT K : GOSUB2ÓÓ 

550 REM "START OF PROCEDURE : GOSUB 200 

560 INPUT A, BZ, C$ : GOSUB2ÓÓ 

570 DIM  U(190) : GOSUB 200 

580 DIM V2Z (10, 10) : GOSUB2OÓ 

590 DIM W$(100) : GOSUB 200 

23109 END 

5200 INPUT "ELSO ES UTOLSO REKESZCIM : PL. 40, 
S59D7;A,F 

5210 FORS-ZATOF 

5220 K-PEEK(S) : PRINT S ; K, 

5230 RETURN 


Amikor a printer-t megismeri, a rekeszek tar- 
atalmát ki is írathatja papírra és tételesen 
összehasonlíthatja az egy-egy utasítás végre- 


hajtása során keletkező memória változásokat. 
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ABC: 


51 PRINT "SZÖVETEK "$ 52 PRINT "A KARAKTERKÓD ALSÓ ES . 
FELSŐ HATÁRA?":INPUT A, FX A képernyő 24x40-esk 56 PRINT CUR(I.J) ; 
CHR XA (K) : NEXT J : NEXTIZ 57 FOR P-1 TO 24 : PRINT : NEXT Pi 


58 — DIÓ törölveg A képernyő nem színezhető £ 


HTZ: 


[119 ] 54 FOR I-15360 TO 163833 55 törölvef 56 POKEI,K : NEXTI : 
CLSi 537 NEXTK : END £ A képernyő nem színezhető, így 38 — 511 töröl- 
veg A 15369—16383 című memória rekeszek a képernyő 16x64 karakterét 
kezelik f A képernyő kódok az ASC II. kódokkal azonosak X 129—191 kódok- 
hoz grafikai jelek tartoznak PRINT TAB(H) CHR$S(K) ábrák rajzolására 


alkalmas £ 


TEXAS: 


PRIMO: 


TV COM: 


VT-16: 


119 I] POKE utasítás nincs. A CALL SCREEN, COLOR, HCHAR, VCHAR stb. 
gépi rutinok helyettesítik f 53 K-A :: GOTO 10 :: REM Az ASC KÓDK 54 
T-P : CALL SCREEN (1)X 55 LELH1 : IF L5315 THEN L-1£ 56 CALL COL 
OR (T, L, L:1) £ 537 CALL HCHAR (1, 1, K, 768) 58 K-K-I :: IF KCF 
THEN END Z 59 CALL CLEAR :: GOTO 14; 5S1Ó FOR C-I TO 8£ 


51 PRINT "SZOVETEK"$£ 52 INPUT "A KARAKTERKOD 
ALSO ES FELSO HATARA?"f 54FORI-ITO1I6$ 55FORJ-1 TO 42£ 
56 PRINT CHR$(K); : NEXTJ 58 CLS3 59, -10 törölveg A képernyő 


nem színezhető Z 


[119 54 FOR I-1 TO 243 55 FORJ-I TO 32$ A képernyő 24x32 fel- 
bontású 56 PRINT CHR$(K); :NEXTJX 58 CLS : IFL (2 54 THEN 
LÓ: 510 SET BORDER L :SET PAPER L:-I : SET INK L-2 3; Keret, alap, 
karakter színbeállításk 5105 V-V-1] : IF V33 THEN VO: 53106 ON V:1 
GOSUB 120, 121, 122, 123£  V a kiválasztott 4 szín sorszáma £ 5120 SET 
PALETTE 0, 1, 4, 5 : RETURN £ 4 szín kiválasztása a szóbajövő 16-ból 


52 INPUT "A KARAKTERKOD ALSO ES FELSO HATARA?"; 
A,FYA5-3,F C-254£ 534FORI-ITO24g 56 LOCATEILI, J : PRINT 
CHR$(K) : NEXT JÉ 58 CLST 510 IF K/2 - INT (K/2) THEN COLOR . 0,15 
ELSE COLOR 23,15 "SZINVALASZTASÍ A karakter színkódja b; 7; 8; 15, a 
háttéré Ó; 7; 15. 16-al növelve villogást látunk £ 54 : IF I-24 THEN 8 kiegészí- 


tés? £ 
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.058 


119 


A képernyő színezése és karakterek megjelenítése. A POKE utasítás használata. 


Irjon a képernyőre színes szövetmintákat rajzoló programot: 


hi 2NEW 
szal 
22 


PRINT 7"":SZINES SZOVETEKf tf" 
INPUT "A KEPRENYOKOD ALSO ES FELSO 
HATARA? " ; A, B 


53 FORKZATOF 

54 FORI-1 TO 25 

55 FOR J-1TO 40 

56 POKE983:40"I:J, K: NEXTJ 

57 NEXTI 
y 58 PRINT"? [d ":IFL314THEN L-) 
y 59 L-L1 
y 510 POKE53281, L-1 : POKE53280, L 
9—— 511 NEXTK:END 
§i 5SRUN -[4d Aa 

AA — A COMMODORE-64 képernyője 25x40 


karaktert jeleníthet meg, ami 25 sort és egy 
sorban 40 karaktert takar. A karakterek cí- 
me 1024—2023 a memóriában. Ezek bár- 
melyikét az alábbi kétváltozós függvény 
állítja elő: 
C-983--4Ö"I4J. 
Ahol I a sor, J pedig az oszlop futóindexe. 
— A POKEC, K függvény a C című rekeszbe 
K-1—255 számok (a képernyő kódok) bár- 
melyikét elhelyezheti, amire a képernyő 
adott karakterében a kód megfelelője (kézi- 
könyv 133 o.) válik láthatóvá. 


— A video rekeszek (6. sáv) közül az 53280 és 
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HTZ: 


TEXAS: 


PRIMO: 


TV COM: 
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Vonja össze az 55, 26-ot és egészítse ki az alábbiak szerint: 26 PRINT CUR 
(I, 1); CHR X(151); : FOR J-1 TO 38 : PRINT CHR X (K); : NEXT J : NEXTI 
XA PRINT CUR (I, 1); CHR 2 (151) az egész I-edik sorra érvényes, a CHR 
(K) csak 1 pozícióra £ 


Nem oldható meg £ A gép színekkel nem dolgozik £ 


511 READ D(C), E(C) £ 512 DATA 32, 39, 40, 47, 48, 55, 56, 63, 64, 71, 72, 
79, 80, 87, 88, 954 513 NEXTCX 514 FOR P-1 TO 8 :: IF D(P) C-K 
AND K € - E(P) THEN 4 £ 515 NEXT P :: GOTO 1£ Lásd a 4. sz. mell. § 


[10] nem : 


5121 mint 5129 a 16, 17, 20, 21 kódokkal ; 53122 a 64, 65, 68, 69 kódokkal; 
5123 a 80, 81, 84, 85 kódokkal $ Próbálja meg XGRAPHICS 2 után 
futtatni a programot Z Törölje a 5105, 5120,5121,5122,5123 utasításokat § 
580 CLS : IF LD15 THEN L - 0; Adja a GRAPHICS 16 parancsot és futtassa 


újrak L a 16 szín sorszáma X 


Színes adapter nem tartozik a géphez. A PROPER !6 és az IBM PC-vel 
megoldható 


059 Karakterek színezése. 


53281 a képkeret, illetve a kép egységes 
színezését látja el. (A képernyő karakter 
mélységű színezését az 55296—56295 című 
rekeszek biztosítják). A színeket a 0—15 
kódokkal azonosították. Ha a kódok egyikét 
a POKE utasítással bevisszük a jelzett 
rekeszek valamelyikébe, akkor vagy a keret, 
vagy a kép felveszi a jelzett színt a képer- 
nyőn. 

A PlII9 a teljes képernyőt beszövi az első, 
a második,..., a 255-ik karakterrel. A kép- 
váltás a képernyő törlésével kezdődik. 
Erre szolgál a print " KA" utasítás. Ez az 
idézőjeles negatív szívalak az alábbi gomb 
kombinációval vihető a gépbe: 
(SHIEETIRVSFF] , smrTf] 


ahol az RVS/ON megnyitja, RVS/OFF 
pedig lezárja a negatív karakteres írásmódot. 
A program három beágyazott ciklusa belül- 
ről C55), kifelé 63) haladva az oszlop, a 
sor, illetve a karakter váltást biztosítja. 
A színváltást léptetéssel, a színsorozat ismét- 
lődését IF-el oldjuk meg. A futó program a 


szövést imitálja. 


120 Rajzolja fel a magyar zászlót a képernyőre. 


x SNEW 


510 PRINT "MAGYAR ZASZLOF""? 

520 FOR T-1 TO 3 : REÁD S : DATA 2, 1, 5 : L-L-1 
530 FOR LE-I 1 (L1—1)"8 TO 8FL : FOR J-Ó TO 39 
540 POKE 984-4Ó "I:J,240 : POKESS5256-4Ó"FI4J S 


550 NEXTJ 


bú les bg maj 
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ABC: NEM £ 
520 PRINT "570-ES CIMKEVEL KOPOGJA LE A VALASZTOTT 
FUGGVENYT, TOROLJE 521-ET ES RUN"X 530 FOR P-1 TO 24 : PRINT : 
NEXTPg; 521 STOP: 


HTZ: 530 CLSZ 


TEXAS: 55 CALL CLEAR :: CALL SCREEN(2) $ 510 FOR I-1 TO 3 :: READ 
K (I) $ 520 DATA 7,16,4 4 530 FOR J-8"(I—1) "1 TO 8"I $ 540 FOR 
L-1 TO 32 $ 550 CALL COLOR (1, K (I), 2) £ 560 CALL HCHAR OJ, L, 
331): NEXT L :: NEXT J :: NEXT I :: END? 


PRIMO: 530 CLSF 


TV COM: [120] 510: CLS £ 520 SET PALETTE ú, 68, 85, 16 : SET BORDER 0 : SET 
PAPER 2 : 71 $ 530 FOR J-1 TO 324 540 SET INK L : PRINT CHR$ (127) 
; 550 NEXTJ,I:L-L:1:IFL C-3 THEN 30 : END 
[121] 530 CLS £ 540 PRINT AT 1,15 : N$ $ Első sor 15. pozícióját definiál- 
ja a kurzor számára ; 550 PRINT AT 2, 20 :0 £ 


VT-16: 530CLSi 
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060 
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AA — A képernyő karakterek egyenként is színez- 
hetők. A kívánt színkódot az 55296—56295 
című rekeszek bármelyikébe POKE utasí- 
tással vihetjük be. Sorozatos bevitel esetén a 


C-55256140"I4J ; I-1,...,25 ; J-D,...,39 


függvénnyel állítjuk elő a címeket. Fontos 
körülmény, hogy a színek csak akkor válnak 
láthatóvá, ha valamilyen jelet is viszünk a 
képernyőre. Ezért szerepel 240 alatt egy 
a színre és egy a karakterre vonatkozó, 
szinkronizált (azonos I és J) POKE utasítás. 
— A zászlót 3t8 képernyő sorra terveztük. 
A színsávok kezdő sorindexeit az L segéd- 
változó léptetése mellett az 1-(L—1)"8 
függvény állítja elő. A színkódokat ciklus- 


sal olvassuk be. 


Karakter grafika a képernyőn. 


Irjon programot egyváltozós függvények képernyőn való grafikus ábrázolására: 


x "SNEW 

510 PRINT """FUGGVENYEK A KEPERNYONtt" 

520 PRINT "70-ES CIMKEVEL KOPOGJA LE A VALSZTOTT 
FUGGVENYT, MAJD RUN 25" : STOP 

525 INPUT "A FUGGVENY NEVE; AZ X ALSO ES FELSO 
HATARA ? " ; N$, A, F 

530 PRINT " K2 "7 

540 PRINT TABC(15) N$ : PRINT 

550 PRINT TAB(29) 79" 

560 FOR X-A TO F STEP.2 : X-INT(19"X.5)/10 

570 REM 
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ABC: 


5110 PRINT X; TAB(19) CHR Xí (151); CHR XI (106); TAB(Y) 
CHR XÍ (135); " §" : GOTO I50£ 5140 PRINT X; TAB(Y) "7 §? ; 
TAB(19) CHRXO(151); CHR X6 (106) ZEgy soron belül vált és visszaválthat 
a grafikus módból. CUR (I, J) és TAB(J) pozícionál 


HTZ: 


TEXAS: 


121] 580:IFYCaC1ORY563THEN15ÓX Gyakran nagyítjuk a torz ké- 
petpl. Y- 10 "SIN OOF 


121 ] 5330 CALL CLEAR § 550 CALL VCHAR (1,15, 46, 24) Xx 554 CALL 
HCHAR (12, 1, 46, 32)X 580 U-15:-X:IFUGC1IORU5 32 THENI2Ó£ 
590 V-12—-Y :IFV.CIORVI524THENI2Ó £ 5100 törölveg 5110 
CALL HCHAR(V,U,46, Di: 512Ó NEXTX£ 5140, 5159 törölve § 


PRIMO: 


TV COM: 


VT—-16: 
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121 ][ 5110 PRINT X TAB(20) CHR$(138) TAB(Y) 7 "7 : 4 5140 PRINT 
XTAB(Y) " " " TAB(20) CHR$(138) 


580: IFYC4ORY5 30 THEN 150 :; Y560, ha GRAPHICS 2-vel dolgozunk 
$£5110 PRINT X; TAB(20); CHR$(139); TABCY); 99 : £ 5140 PRINT X; 
TABC(Y); 7"; TAB(20); CHR$(139) 


121] 580 :IY.CaC4O0RY576THEN 150 £ 5105 IF Y-2Ó THEN 1457 
5110 PRINT X TAB(20) CHR$(179) TAB(Y) 7.": GOTO 150£ 5140PRINTX 
TAB(Y) "7." TAB(20) CHR$(179) : GOTO 150 f 5145 PRINT X TAB(20) 7."£ 


580 Y-2GY:IFY.(4 ORY536 THEN 150 

590 REM AZ X TENGELY POZICIONALASA 
5D1ÓÓ IF Y CX29 THEN 140 

5110 PRINT X TAB(20) "1" TAB(Y) """ : GOTO150 
5140 PRINT X TAB(Y) "1" TAB(29) "17 

5150 NEXT X : END 

SRUN -l4d A 


VAVYAN — A normál üzemmódban álló gép alkalmas 
arra, hogy karakter felbontású képeket 
rajzoljon a képernyőre. A képrajzolás sor- 
folytonosan történik. Ezért például a koordi- 
náta rendszer a szokásos állás helyett 9$ 
fokkal elforgatva rajzolható, tehát az X ten- 
gely lesz függőleges. 
állítja be. Az X aktuális értékét és a tengelyt 
a 5110 és 5140 utasítások íratják ki. Az Y 
aktuális értéke ugyanezen utasításokban 
pozicionálja, tabulálja a függvény  meg- 
felelő pontját. 

— A programba akármilyen egyváltozós függ- 
vény bevihető. Változtathatjuk a vizsgálati 
tartományt és a lépésközt is. Kisértékű 
lépésköz degenerált képhez vezet, mert 
ha RCYA R:r1, akkor TAB(Y) - TAB(R), 
feltéve, hogy R egész szám. Igy a görbe 
kiegyenesedik. A jelenség nagyítással kikü- 
szöbölhető (pl. Y-COS (Xtr/180); Y-Nö 
COSCX"r/180)). 
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ABC: éz 


HTZ: - 
TEXAS: — 
PRIMO: — 
TV COM: ke 
vT—16: [122] - 


292 


061 


Mikro karakter grafika a képernyőn. 


122 


ban maradjon: 


Módosítsa a Pl21-et oly módon, hogy a koordináta rendszer a hagyományos állás- 


— Előzetes megegyezések: 

1. Egész számokat kettes rendszerbe egy osz- 
tás sorozat maradékai visznek át. Pl. 38 
38:2-19:2-9:2-4:2-2:2-1 :2-0;38-1901 10 
ú. 4 oi §.§ d 
az első maradék a legkisebb helyiértékű. 
2. Kettes rendszerű számokat a tizedes 
rendszerűek mintájára adunk össze. Pl. 
38413 

100110 

1101 

L19611 
3. Kettes rendszerű számokat tizedes rend- 
szerbe a számjegyek és helyiértékek szor- 
zatösszege visz át. Pl. 119911 

LE2S4l 212221 2141 129 

1-3211:1610-8-0-44-1"2--1"1-51 
4. Egy byte 8 bit-je kettes rendszerben 
az alábbi helyiérték táblázattal dolgozik: 

8 7 6 5 4 3 2 1 


hize[6als2 i6[8]4]2][1 


A bit-ekre helyiértékükkel és sorszámukkal 
is hivatkozhatunk pl. 32-es helyiértékű 
bit ; 6-os bit. Szokásos alsó (1—4) és felső 
(5—8" bit-ekről is beszélni. 

5. Egy — byte 0-255 közötti számokat 


hordozhat. Egy byte szám (N) komple- 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT—-16: 


254 


mense (N) teljesíti az N:N-256 azonossá- 


got pl.: 
N-51 DÓLIÓÓI11 
N-205 — LIO01101 
1ÓÓ00000 
A  komplemens képzést  jobbról-balra, 


az első értékes jegyet (1) követő jegyek 
megfordításával (D helyett 1 és viszont) 
intézhetjük el. 
6. Két byte A, illetve B tartalmának az 
A-B különbségét az ArB, vagy az A-B 
összeg adja fiéé; A választás A és B közötti 
relációtól függ. Pl.: 
A-137 — 1Ó001061-—; IÓODIÓDÓI- 
B- S1  001100611 11991101 
DIÓ10118 
Az összegezésnéla byte túlcsordul. 
7.Egy byte alsó és felső 4 bit -je más-más 
jelentést közvetíthet a gép számára. A felső 
4 bit helyiértéke úgy tekinthető, mint az 
alsó 4 bit helyirétékének a 16-szoros 
nagyítása. Az alsó 4 bit max.15-öt, a felső 
4 max. 16"15-öt tárolhat. A két féltekére 
azonos számokat (Pl. 5) az alábbi módon 


vihetünk be: 
lét5 45 


d1011d101 


8. Egy üres byte: bármelyik bit-jébe 
tehetünk egy 1-est: 

POKE cim, 21N ; AHOL Ó CNS7 
9.Két byte-ra értelmezzük az AND és OR 
logikai "műveleteket. Az értelmezés bit 


paritásra vonatkozik. Eszerint Pl. 


ps 


ABC: 11. Magyarázat az irodalomjegyzék [5]-ben 


HTZ: 11. Magyarázat az irodalomjegyzék [8]-ban 


TEXAS: 11. Magyarázat az irodalomjegyzék [9]-ben és a 4. számú mellékletbenf 


PRIMO: 11.A feladat normál üzemmódban oldható meg a SET (X, Y) függvény 
alkalmazásával, ahol X —255, Y pedig 0—191 értéket vehet fel. X a képernyő 


oszlopait, Y a képernyő sorait jelöli £ 


1 


TV COM: 11. Magyarázat az irodalomjegyzék [14]-ben £ 


VT-I6: — 11. A 5SCREEN 2 állít grafikus üzemmódra, amit 3SCREEN 0 
von visszat XLINE (XI, Y1) — (X2, Y2) szakaszt rajzol két 
adott pont között. Ó C X C 639 és Ó c Y c 299 a képernyő felbontása z 
5LINE (X3, Y3) — STEP (D1, D2) [ENT] az X3, Y3 pontból az X3 : DI, 
Y3 4 D2-be vezeti a szakaszt £ . 9LINE (XI, Y1) — (X2, Y2), 0.B tég- 
lalapot rajzol a szakasz, mint átló köré; 5CIRCLE (U, V), A egy " 


256 


11111111] AND I1IIIIII OR 
11119900 111 19960 

11110660 11111111 

Az AND kimenete csak akkor 1-es (igaz), 
ha a bementek is 1-esek voltak, az OR ki- 
menete viszont csak akkor nulla (hamis), ha 
a bementek is 0-ák voltak. A két művelet 


10-es rendszerű számokra is felírható a 


b—255 intervallumban pl.: 

45 AND 198 - 4 45 OR 198 - 239 
ÖOIÓ11Ód1 AND ÚÓIÓI11Ód1 OR 
119Ó6$110 L1990110 
9000 100 11101111 


10. Ha egy byte tartalma K (PRINT 
PEEK(O)-K), és az N-edik üres bit-jébe 1-et 
akarunk beírni, akkor 
POKE C, K OR 21 (N-1), vagy POKE C, 
K:21 (N—-1) 
megoldások jöhetnek szóba. 
Ha K-D és két vagy több bit-et akarunk 
1-re állítani, akkor 
POKE C, 21 (L—-1) OR 21 (N-1), vagy 
POKE C, 21 (L—1) 21 (N—1) 
megoldások egyikét alkalmazzuk. A második 
. megoldásban a számokat összeadjuk pl.: 
POKE C, 213 - 215-POKE C, 49 
11. A feladat normál üzemmódban 
nem oldható meg. A gépet grafikus üzem- 
módra kell állítani. Ezt az 53265-ö című 
video regiszter módosításával érjük el. Ere- 
deti tartalma ÓÓÓIIÓI1, vagyis 27. A 32-es 
helyiértékű bit-je üres. Ha ezt 1-esre állítjuk: 
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ABC: 529 PRINT "75180-AS CIMKEVEL KOPOGJA LE A FUGGVENYT, 
TOROLJE 521-ET, MAJD RUN" Z 5321STOP; 5330 PRINT "AZ X TEN- 
GELY POZICIOJA?"?: INUTI: 540 PRINT "AZ Y TENGELY POZICIO- 
JA?" : INPUTJÍ 550 PRINT "X INTERVALLUMA, A, F ES LEPESHOSSZA 
kegzdlés 


HTZ: — 


TEXAS: — 


PRIMO: 12. A mikro karakterek kezelésére 6 KBYTE nagyságú puffer tároló áll rendel- 
kezésünkref 


TV COM: — 


VT—-16: U, V középpontú és A NAGYTENGELYU ELLIPSZIST RAJZOL 5-PSET 
(X,Y), 1 kigyújtja az X, Y koordinátájú pontot,a — -PRESET 
(X, Y), 0 viszont kioltja azt fá A képernyő 640x300 képpontot hordoz £ 
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POKE 53265, 27 OR 32 
akkor a gép grafikus módra áll át. 
Grafikus üzemmódban a gép felbontja a kép- 
ernyő karaktereit 8—8 sorra (mini karak- 
terek) és minden mini karaktert 8 mikro ka- 
rakterre (8"8-as felbontás). A mini karak- 
tereket közvetlenül (címezett byte), a 
bennük foglalt mikro karaktereket köz- 
vetve (a címzett byte bit-jei) éri el. A 
mini karakterek száma 2Ódr40-BÓDD. A kép- 
ernyőn tehát 2ÓÓ sor és egy sorban 320 
mikro karakter, tehát 32Ó oszlop áll rendel- 
kezésre. A mini sorokat MI-D,1 ,..., 199, a 
mikro oszlopokat pedig MJ-D,1 , ..., 319 je- 
löli. A mikro karakter pontnak felel meg. 
12. A mini karaktereknek memóriát kell 
biztosítani. Erre szolgál az 53272 című 
video regiszter. Ha felső 4 bit-jébe 1-et, 
az alsóba pedig 8-at teszünk: 

POKE 53272, 16"1-8 

Akkor a gép memóriája az alábbiak szerint 


funkcionál: 


RENDSZER NYILVÁNTARTÁS 


TTTeT 


. 1024 KÉPERNYŐ KARAKTER SZINTÁR 2047 


.] 14kK 8192 MINI KARAKTER TAR 16383 
I 24K Í J 


40960 BASIC ROM 49151 


1023 


.Í 4K ( 49152 RAM 53247 


A mini karakterek elérésére 8K nagyságú 


terület került kijelölésre a felhasználói 
sávban. A képernyő karakterek eddigi 


299 


ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


260 


INPUTA,F,S£ 560 — 580 törölve 590 FOR P-Ó TO 23 : PRINT : NEXT 
Pá 51ÓÓd — 5110 törölve 512 REM AZ X TENGELY RAJZOLASA; 
5130 PRINT CUR (I, 0) CHR X (151); : FOR K-2 TO 79 : SETDOT 3"I41, K 
: NEXTKÉ 5140 törölve 53150 REM AZ Y TENGELY RAJZOLASA £ 
5169 FOR K-) TO 23 : PRINT CUR (K, J) CHR$ (151); : SETDOT 3"K, 
2"(J:1) : SETDOT 3-K:I, 2"(J:1) : SETDOT 3" K:2, 2"(J:1) : NEXT Ki 


[122 ] 510 PRINT "FUGGVENYEK MIKRO GRAFIKONJA "3 520 PRINT 
"90-ES CIMKEVEL KOPOGJA LE A FUGGVENTT : PL. Y-X. " 2, MAJD RUN 
307 : STOPZ 530 CALL CLEAR :: Z$ - "OOÓDOÓIBIBOÓDÓDDÓÓ? :: CALL SCR 
EEN (12)£ 540 INPUT "AZ X ES Y TENGELY POZICIOJA?": MX, MY 
550 CALL VCHAR (1, MY, 46, 24) : CALL HCHAR (MX, 1, 46, 32) :: REM 
TENGELYEK X 5360 I INPUT "AZ X HATARAI ES LEPESKOZE?": A, F, SZ 


516 PRINT "FÜGGVÉNYEK MIKRO GRAFIKONJA "3 560 CLS: 
SCREEN2 : REM A KEPERNYOT 308649 PONTRA BONTJAZ — 570-— 
590 törölveg — 5100 LINE (0, 12"MY) — (639, 12£MY) : REM AZ X TEN- 
GELY RAJZOLÁSA $ 5119 — 5120 törölvei 5130 LINE (8"MX, b) — 
(8B:MX, 299) : REM AZ Y TENGELY RAJZOLASA § 5140 MJ-MXÍ 5150 
törölve; 2160 MJ-8" (MJ : INT (A/S)) 


rekeszei funkciót váltanak, amennyiben 
a képernyő karakterek színezését látják el, 
mégpedig a felső 4 bitjük a pontok (mikro 
karakterek), alsó 4 bitjük pedig a háttér 
(pontközök) színezését biztosítja. Az I. J. 


karakterre vonatkozó színezési utasítás: 


POKE 983-4Ó"FIKJ, 16"P::H, 

ahol P és H Ú és 15 között választott szín- 
kódokat jelöl. Fontos körülmény, hogy a 
pontszín csak akkor válik láthatóvá, ha a 
pontot feijöszük,. vagyis a mini karakter 
memória rekeszének a megfelelő bit-jét 
1-essel töltik fel. ú 

12. Grafikus üzemmódban a mini karak- 
terek címezhetők. A képernyő bal felső 
sarkában a 8192-es, a jobb alsó sarkában 


viszont a 16192-es című mini karakter fek- 


szik. A mini karakterek relatív címzését az 


alábbi módon oldották meg: 


(1—1)"320-J"8rk 
7688 
7689 


7695 


Tehát a relatív cím a mini karaktert befog- 
laló képernyő karakter sor (I) és oszlop 
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ABC: 


HTZ: 


5165 J1-JHINT (AK2"S) £ 5170 FOR X-A TOFSPTEPS$ 518Ó REMAZ 
FUGGVENY HELYES: 5190 1I1-I—Z : IF 3"II CI OR 3$II 578 THEN 2207 
SZÓ PRINT CUR (1, DCHR XÍ(151) : SETDOT 3"II-1, 2-/JID F 5216 
J1-J1-.5 : IF 2"(J161) 378 THENENDZ 5220 NEXTX ii 5230 END? 

5240 — 5250 törölve £ 


TEXAS: 


PRIMO: 


5706 FOR X-A TO F STEPS ::IF X5 F THEN END £ 

580 U-8"(MY:X) : IFUC1ORU5SD 256 THEN 110 

590 REM A FUGGVENY Í 595 V-8"(MX-Y) :: IF V 1 ORV 5192 THEN 
11b§ 5100 CALL CHAR (140, Z$) : CALL SPRITE (41, 140, 7, V, U) X 

511d NEXT X£ 


TV COM: 


560 GRAPHICS4 : REM GRAPHICS 2 VAGY GRAPHICS 16 is dek- 
larálható$ 570 SET PALETTE Ó, 1, 16, 68 : REM GRAPHICS 2 ESETÉN 
CSAK KÉT KÓD EL, 16 ESETÉN 570 elmaradhat i 580 SET BORDER Ó 
: SET PAPER 2: SETINK 1§ P90CLSÍ 5100 SET STYLE 1 : REM A 
VONAL FORMA 1, ..., 14 KÓDOKKAL VÁLASZTHATÓ KI £ 


VT—-16: 
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5196 MI-MY—Z:IF MI C1OR MIS524 THEN2IdD E 52Ó0 PSET (MJ, 
12"MI), 1 : REM PONT KIVILAGITASAZ 5210 :IF MJ 5639 THEN 250£ 
5220 — 5240 törölve 5250 ENDEZ A cKkép nem színezhető 


(J) idenxeiből, valamint a mini karakter, 
karakteren belüli sorszámából (K—Af,...,7) 


meghatározható az 


(1—1)"320-J"8-K 
képlettel. Ha viszont egy mikro karaktert 
adunk meg MI, MJ indexekkel, akkor a 


befoglaló mini karakter relatív címét a 


32Ó"INT(M[/8) - (MI AND 7) £ 88 INT 
(MJ/8) 

képlet adja az előzővel összahgban. Pl. 
MI-1, Mj-8, akkor: INT (1/8)-0; INT (8/8)- 
zl; Il AND7-1 
a cím tehát 9. 
Ha a relatív címeket a mini karaktertár 
kezdő címével (8192) növeljük, akkor 
abszolút címeket kapunk, ahol a mini karak- 
tereket a gép ténylegesen eléri. 
13. A mikro karakter a befoglaló mini 
karakter címén érhető el, aktiválása pedig, 


haa byte üres, a 


21((7—MJ) AND 7 

byte -ba való helyezésével oldható meg. 
pl.  MI-I; MJ-IÓ, akkor 7-ÓÓÓDOÓI1I; 
16-ÓDÓÓIÓIÓ; 7—19-ODÓÓÓII1-11119110- 
1I111161. 

(7—1Ó) AND 7-II111101 AND 09900111- 
ÚÓÓÓÓDIB1-5 vagyis 215 helyiértékű bit 
kerül gerjesztésre a 9-es című (relatív cím) 
byte -ban. Ha ezután még MJ-11. Akkor 25 
OR 2"-ÖDIIÓÓDÓ megoldással két pont is 
gerjeszthető stb. 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


560, —290 törölvek 595 CLSX 5100 FOR MJ-I TO 2554 5119 
SET (MJ, MY) £ 5136 FOR MI-191 TO 1STEP—13$ 5140SET(MX, MDÉ 
5190 MIE-MYSZ : IF MI 1 OR MI 5191 THEN 2104 5200 SET (MJ, MD 
5210 MJ-MJs1 : IF MJ 5255 THEN 250 £ 5215 NEXTX; 


TV COM: 


VT-16: 
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[122] 5110 MI-MY XZ 5120 PLOT 0, MI; 1923, MI : REM A MIKRO KARAK- 
TEREK 0—1023(VIZSZ.) ÉS 0—960 (FÜGG) KOORDINÁTÁKKAL AKTI- 
VÁLHATÓK X£ 5136 törölveg 53140 MJ-MXg£ 5150 PLOT MJ, 959; MJ, $ 
5160 MJ-MX:4"INT (A/S) : REM GRAPHICS 2 ESETÉN 2-ES; 16 ESETEN 


519 "FÜGGVÉNYEK MAKRO GRAFIKONJAk — MAKRO GRAFI- 
KON AZ ADOTT OPERÁCIÓS RENDSZERBEN SZINEZHETÖ£i 560 
CLSE 570 COLORO73 580, 590 törölvek 51009 FOR MJ-I TO 89 : IF 
MJ-80 THEN 1304 5110 MI-MY : LOCATE MI, MJ : PRINT". "£ 5130 
FOR MEI TO 24 : IF MI-24 THEN 169 $ 5140 MJ-MX : LOCATE MI, MJ : 


PRINT " . " £ 5190 MI-MY-Z : IF MI XI OR MI 524 THEN 219. £ 5200 
LOCATE MI, MJ : PRINT " £ " $ 5220 COLOR 7,15 £ 5230 törölvez 


14. A grafikus üzemmódból a 
leütésével, vagy a 

POKE5S3265, 27 : POKE53272,21 
utasításokkal térhetünk vissza a normál 
üzemmódra. 


— Ezután tekintsük a P122 megoldását: 


5SNEW 

519 PRINT """FUGGVENYEK MIKRO GRAFIKONJA ft" 

520 PRINT  ""180-AS CIMKEVEL KOPOGJA LE A FUGGVENYT 
: PL Z-Xf2, MAJD RUN 30" : STOP 

530 INPUT "AZ X TENGELY POZICIOJA?" ; MY 

540 INPUT "AZ Y TENGELY POZICIOJA?" ; MX 

550 INPUT"XINTERVALLUMA : A, F ES A LEPES HOSSZ : S ? 
5A,F,S 

56 POKE53265, 27 OR 32 : REM 32 GRAF. 

570 POKES53272, 16 OR 8 : REM 1 SZIN, 8 PONT 

580 FOR C-1b24 TO 2923 :POKE C, 161043 : NEXT 
C : REM SZINPAR 9 ; 3 

590 FOR C-8192 TO 16383 :POKE C, 0 : NEXT C : 
REM PONTTARAK KIURITESE 

5109 FOR MJ-Ó TO 319 : IF MJ-32Ó THEN 130 

5110 MI-MY : GOSUB 226 

5120 NEXT MJ : REM AZ X TENGELY RAJZOLASA 

5130 FOR MI-Ó TO 199 : IF MI-200 THEN 160 

5140 MJ-MX : GOSUB 220 

5150 NEXT MI : REM AZ Y TENGELY RAJZOLASA 

5160 MJ- MX:INT (A/S) 

5170 FOR X-A TOF STEPS :IFX5 F THEN 250 

5180 REM Z A FUGGO VALTOZO! 

5190 MI-MY7-Z : IFMI 1 ORMI5 198 THEN 210 

5200 GOSUB 220 

5210 MJ-MJ:1 : IF MJ 5 319 THEN 250 

5215 NEXT X : GOTO 250 


93 
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ABC: 


[123] Előzetes megjegyzések: 1. OK £ 2. A felhasználói BASIC kezdő címkéjét 
a 65052 és 65053 rekeszek tárolják. Tartalmuk 0 és 192 X L a páros, H a pá- 
ratlan című rekeszf 3. A programozó kiszolgálásában éppen következő rekesz 
címét a 65054 és 65055 címü rekszek tárolják 


HTZ: 


123 [ Előzetes megjegyzések: 1. OK; 2. Csak annyi igaz, hogy a felhasználói 
BASIC terület kezdő címkéjét a 16548 és 16549 rekeszek tárolják 3. A prog- 


ramozó kiszolgálásában éppen következő rekesz címét a 16633 és 16634 című 


rekeszek tárolják 


TEXAS: 


PRIMO: 


123 ] Az előzetes megjegyzések 1. kivételével érvénytelenek § 


D220 — 5240 törlvef 525Ó ENDZ A képernyő sorok alulról felfelé számo- 
zódnak, az oszlopok balról jobbrai A képek XCMD SAVE SCREEN" CIM; 


utasítással disk-re rögzíthetők és PCMD LOAD" CIM" olvassa 


vissza 


TV COM: 


VT—-16: 


8-AS SZORZOT ALKX 53190 MI-MY - 4"Z : IF MI IC OR MI 596 THEN 
219 : REM Z NAGYITÁSA MINDHÁROM GRAFIKÁBAN 4£ 5200 PLOT 
MJ, MIX 5210 MJ-MJ - 4 : REM 2, 4, 8 A VIZSZ. LÉPÉS HOSSZ. IF MJ 
51023 THEN 250£2220, 230, 240 törölve; 5250 ENDÉ 


5256 COLOR 7,15 : ENDZ 

A kurzort ki kell vinni a képből, mielőtt új akciót kezdeményeznénk £ 

[123] Az előzetes megjegyzéseket figyelmen kívül hagyjuk A BASIC 

terület áthelyezésére nincs szükség £ A 5MERGE "NEV" utasítás betölt 


lemezen fekvő és ASC kódban rögzített programot és egyesíti a gépben lévő 


programmalj; Azonos címkék felülíródnak, ezért a gépben lévő program cím- 
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062 


123 


5220 P-8192:320"INT(MI/8):(MI AND7)-8 "INT(MJ/8) 
5230 POKE P, PEEKC) OR 21 ((7—MJ) AND 7) 
5240 RETURN 
5250 POKE53265, 27 : POKE53272, 21 : END 
x SRUN -[Íd A 


MA — Az előzetes megjegyzések alapján a program 
alig igényel magyarázatot. Feltünhet, hogy 
minden INPUT a grafikus üzemmódra való 
áttérés (260) előtt szerepel, utána ugyanis 
a PRINT és INPUT szövegek nem olvasha- 
tók a képernyőn. A függvény ábrázolás 
érdekessége, hogy az X tegelyen nem a 
helyettesített X érték, hanem a STEP-pel 
szinkronban léptetett MJ sorozat 210), 
az Y tengelyen pedig az X tengely pozíció- 
jának a Z(X)-el modulált értéke jelenik meg. 

— A 5229—5240 szubrutin oldja meg mini 
karakterek elérését (P) és a megfelelő mikro 
karakterek gerjesztését. 

— A program egyszerű módosításokkal alkal- 
mas figurák és mozgó alakzatok ábrázolásá- 
ra, sőt a SPRITE technikát is előkészíti, 


amivel itt nem foglalkozunk. 


Programok összefűzése. POKE44, PEEK(46) ; POKE 43, PEEK(45) 


Töltse be kazettáról vagy lemezről a PIO programot és egyesítse a később betöltött 
Pl 1-el úgy, hogy működőképes P123 álljon elő: 


VAVAN — Előzetes megjegyzések: 
1. A LOAD utasítás egyik funkciója, hogy 


törli a gépben élő programot. 
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ABC: — 


HTZ: — 


TEXAS: — 


PRIMO: A BASIC terület kezdő címét a 16548 és 16549 című rekeszpár, a prog- 
ramozó kiszolgálásában éppen következő rekesz címét viszont a 16633 és 16634 


című rekeszpár tárolja X 


TV COM: AZ ELŐZETES MEGJEGYZÉSEK FIGYELMEN KIVÜL HAGYHA- 
TÓK$ Az OPENjt6 : INPUT "NEV" : POKE 2818,6 (RET ÍZ  IOKOKII 
5DCLOSEf6 : INPUT betölt lemezen fekvő és ASC kódban rögzített 


programot és összefűzi a gépben lévő programmal £ 


VT—-16: kéit 3RENUM CIl, C2 paranccsal a másik program címkéi alá vagy fölé toljuk 
(C2 címkét C1-el helyettesíti, a lépésköz pedig 10), attól függően, hogy az egye- 


sített programban melyik felel meg a monotonitásnak £ 
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2. A rendszer nyilvántartás (d—1Ó23 című 
rekeszek) területén szóló és páros rekeszek 
találhatók. Köztük a 43—44-es a felhasz- 
nálói BASIC első rekeszének, (normál 
állapotban 2048) a címét regisztrálja. 
PEEK(43)-1 ; PEEK(44)-8. A 43-as a 
LOWER (1), a 44-es a HIGH (H) szerepet 
viseli. Ez azt jelenti, hogy H a cím főrészét 
blokkban (1 blokk-2f8 BYTE), az L pedig 


a töredéket BYTE-ban regisztrálja: 
821851 -8"256-1 


A rekeszek töltése változtatható. Ha például 


az 1-et l hellyel balra visszük, akkor 


[a n 
L ! ÓÓÓDÓÓÓI ! 43 H !ÓDÓDIÓDÓ ] 44 


L-ben 2, 4, 8 stb. BYTE, H-ban pedig 4K, 
8K, 16K stb. címeltolódás regisztrálódik. 
Ez egyben a felhasználó munkaterületének a 
fokozatos csökkenését jelenti. 

Ha megadjuk a terület kezdőcímét (K), 
akkor H-INT(K/256) ; L-K—Hr256 a re- 
giszterek tartalmát 10-es rendszerben adja 
meg. Pl. ha K-4ÓÓÓ, akkor H-15-ÓÓDÓII11 
és L-160-1Ó19ÓÚÓÓ. Ezesetben 2048—4000- 
ig terjedő rekeszek nem vesznek részt a 
programozó kiszolgálásában. 

x3. A rendszer nyilvántartás területén fekvő 
másik fontos rekeszpár a 45—46-os. Ez a 
pár a 43—44-eshez hasonlóan azt a rekesz- 
címet tárolja, amely a programozó kiszol- 
gálásában éppen következnék a BASIC 
területen. Ha tehát eddig tolnánk ki a BASIC 
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ABC: 4. 5 POKE 65052, PEEK (65054) £ 
5 POKE 65053, PEEK (65055) £ 
5 NEWi ATCIMKÉZÉS:5REN c, 10 [RETÍE CLIST3 
5. 5 POKE 65952,0F 
5 POKE 65053, 192 
HTZ: 4. 5 POKE 16549, PEEK (16634) X 
5 POKE 16548, PEEK (16633) —2 £ 
5 NEW;g 
5. 5 POKE 16548, 233 
5 POKE 16549, 66; 
TEXAS: - 
PRIMO: 4. 5 POKE 16549, PEEK (16634) £ 
5 POKE 16548, PEEK (16633) —2£ 
5 NEW § 
5. 5 POKE 16548, 234 
5 POKE 16549, 67X 
TV COM: Azonos címkék felülíródnak, ezért a címkék logikai rendjét előzetesen bizto- 
sítjuk. Az eredmény program második összetevőjét címezzük át az első blokk 
utolsó címkéjét felülmúlva. A vezérlést átadó címkékre is goldoljunk 
VT—16: — 
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25POKE44, PEEK(46) 
5POKE43, PEEK(45) —2 
2NEW 


2POKE44, 8 
2POKE43, 1 


terület kezdő címét, például a LOAD kény- 
telen lenne a címet követő üres területet 
használni és nem érintené a korábban fel- 
használt területeket. A címeltolás nem érinti 
a programozó manőverezési lehetőségeit, 
leszámítva a felhasználható terület nagy- 
ságát. 

4. A címeltolás a 43—44 rekeszpáron hajt- 
ható végre. A címeltolás mértékét a 45—46 
rekeszpár tartalma határozza meg, azaz a 


utasítások a programozó munkaterületét át- 
helyezik, miáltal az addig használt terület 
védetté válik, tartalmát megőrzi. A —2 a két 
terület láncolását biztosítja. 

5. Ha programot viszünk be az új területre 
az futhat, rögzíthető, nyomtatható stb. 
Ha a védett területen program fekszik és 
az új területre bevitt programmal egyesí- 
teni akarjuk, akkor az új programrész 
cimkéit monoton emelkedő sorozatként kell 
megadnunk, illetve így kell átcímkézni, 
ha például betöltött programról van szó. 
Az egyesítést a BASIC kezdőcím vissza- 
állításával 


RET 


érhetjük el. Az egyesített program futtat- 
ható, módosítható, rögzíthető és törölhető. 
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SLOAD CAS : PIÓ £ 5POKE65052, PEEK(65054) 
5POKE 65053, PEEK(65055)£ NEW 
SLOADCAS:PIl$ CLISTZ 5REN49,109 ÍRET[IE 
SLISTÉ 5POKE65052, b POKE 65053, 192? 


5POKE16549, PEEK(16634) : POKE16548, PEEK(16633) — 2: NEW ÍNL Iz 
SCLOAD$—1, "O11" :LISTÍ$ 3RE4010 [NL E 
DLIST$ POKE16548, 233 : POKE16549,66 [NL] PLIST£ 


Betöltjük kazettáról Pl1l-et OLD 7CSI7"§ Átcímezzük Pll-et, hogy P1Ó 
címkéit kövesse  PRESEOGUENCE 100 Disk-re rögzítjük Pl1-et SAVE 
DSKI1. PII, MERGE; Kazettáról betöltjük P1O-et OLD 7CS1I"3 Betöltjük 
a disk-ről Pl1-et fP?MERGE DSKI. PIILX CLIST$ RUN. MERGEZzegyesít 


5POKE16549, PEEK(16634) : POKE16548, PEEK(16633) —2 : NEW 
ÍRET JÉ  SLOAD "PII7X Átcímkézés EDIT módusban; régi címkék törlése; 
5SPOKE1 6548,234 : POKE16549,67 ÍRET ]X CLIST; 


P123 megoldása: JLOAD$t6 : "P11" ÍRETÍIE 3PÁTCIMKEZES 40—60-rak 
RÖGZITÉS ASC kódbanf SLOADf6:"PIÓ"X Töröljük az END-et £ 
5SOPEN:6 : INPUT "P11" : POKE2818,6  [ RET[£  -CLOSEtt6 : INPUT ; 


ABC: 

DLISTZ A régi címkéket a REN törli £ 
HTZ: 5CLOAD$—I1, "P1b" : LIST Áá 
TEXAS: 
PRIMO: SLOAD 7P19" : LIST 
TV COM: 

Az összefűzés befejeződött £ 
VT—-16: 


SLOAD"C:Pi9" LENT] 3LIST 3 SSAVE"TC:PIO",A [LENT [I 


2 


SLOAD"7C:PlI? (ENT] SLIST£ 5SRENUM 40,10 LENT]ÍK A régi 


címke eltűnikf 5MERGE "7C :P10" DLIST E 5END törölve f 


Ezután tekintsük a P123 megoldását: 


2NEW 
5LOAD 7P19", 1, C : LIST 


10 FOR EI TO 7 : READ A 
20 DATA 4, 5, 2, 3.85, 2E3, —4.15, —2E4 
36 PRINT A. : NEXT I : END 


FTÖRÖLJUK END-ET 
5POKE4, PEEK(46) 
5POKE43, PEEK(45) —2 
25NEW 

53LOAD "P1II", 1, CC: LIST 


10 FOR I-1 TO 7 : READ AZ 
20 DATA 4, 5.2, 3.85, 2E3, —4.15, —2E4 
30 PRINT AZ : NEXT : END 


PÁTCIMKÉZUNK 44), 50, 69-RA. 
:TÖRÖLJUK A RÉGI CIMEKET : 519, 20, 30 


2POKE44, 8 
2POKE43, 1 
2LIST 


1Ó FOR I-1 TO J : READ A 
20 DATA 4, 5.2, 3.85, 2E3, —4.15, —2E4 
30 PRINT A, : NEXT I 
40 FOR I-1 TO 7 : READ AZ 
SÓ DATA 4, 5.2, 3.85, 2E3, —4.15, —2E4 
6Ó PRINT AZ : NEXT I : END 

2RUN 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT—-16: 


A P113 ABC-re érvényes alakjában a számozás más a REN 210, 10 utánf 
Illesztése: 7240 törölvef 5260 S(JD-B(I)É Célszerű a B(J) értékét nagyítani 
pl. S(J)-5"B(J) Z 


[ 124 J Atcímkézni csak kiterjesztett BASIC-ben lehet SYSTEM ÍNL 
53/12288 Erről (bekapcsolásról) mindig gondoskodunk X£ 
RESEGUENCE - sorrendre £f  -RE 210, 10 címkézi az utasításokat 
210, 220 stb.-re$ OK G 


P49 és P113 egyesítése és illesztése ad megoldást 5OLD DSKI.P1134 
5SRESEOUENCE 2004 5SAVE DSKI. Pl1I3, MERGE $30OLD DSKI.P49k 
5MERGE DSKI.P1134 LISTX Illesztés 265 NEXT J :: GOTO 200$ KN) 
helyett A(NY)$ 5250; 5266; 2270; 5280 törölveg 5290 FOR I-2TON :: 
S(0)-B(I) : IF S(I) 532 — D THEN 320 F 


5SCMDLOAD "P49" : LIST$ -PDELETE 19-—-150X P113 illesztése: 
5250 törölveg 5270 — 5280 törölve 5290 CLSX 5300 FOR K-1 TO N— 1: 
S(K)-1Ó"B(L) : L-LHIÉ 1$"B(L) nagyítási 5350 NEXTK :ENDE P49 
illesztése: 365 NEXT J : L-2 : GOTO 210 X 566 törölve gk 


[124 [ ELOADi6: "P497$ 5LIST $ Címke leolvasási SLOADiH6: "P11374 
DLIST$  Átcímkézésf DPOPENít6 : OUTPUT 7P113" : LLIST4t6: : CLOSE 
OUTPUT $ SLOADtt6 : "P49" ; 5OPENit6 : INPUT "P113" : POKE2818,6 : 
CLOSE-t6 : INPUT4:  PILLESZTKÜK A KÉT PROGRAMOT (!1, 2, 3; 1, 2) £ 


SLOAD "P49"$ 5SAVE "2: P49", A $ PLOAD "P1137$4 5RENUM 
2194 5270 S-5$"BO) : J-HIX BC) 50-szeres nagyítással jobb képet ad; 
5250 törölvef 5330 CLOSE4$4: RETURN: SMERGE "P49" $ 565 NEXT 
J : Il GOSUB 210 £ 566 END: 
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TAVA — Ha az összefűzött programban egyező cím- 
kék maradnának, vagy a címke sorozat 
növekvő rendjét elhibáznánk, az egyesítési 


folyamatot meg kell ismételni. 


Programok felhasználása szubrutinként. Programok szerkesztése. 


Nyomtassa ki a P49 bázisviszonyszámait diagrammal együtt: 


5SLOAD "P49", 8 : LIST 
5POKE44, PEEK(46) 
2POKE43, PEEK(45) —2 
2NEW 


SLOAD "Pl13", 8 : LIST 

PÁTCIMKÉZUNK (PL. 219—350) 

PTÖRÖLJUK A 510 —5150-ET 

PILLESZTJUK A KÉT PROGRAMOT : P113 SZUBRUTIN 
1. P113 5290 S-B(I) : J-J:1 
2.P113 5270 törölni 
3. Pl13 5350 CLOSE4 : RETURN 


SPOKE44, 8 
5POKE43,1 
DLIST 
PILLESZTJUK A KÉT PROGRAMOT : P49 FŐPROGRAM 
1. P49 565 NEXT J : J-1 : GOSUB21Ó 
2. P49 566 END 
SRUN -Íd A 


Irjon alkalmazási programokat a könyvben szereplő és háttértárolón rögzített prog- 


ramok összefűzésével: 
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ABC: 


HTZ: 


TEXAS: 


Az 1. számú mellékletben található RO, RI, ... mini programokat, adaptálva 
vigye kazettáraf A XNEW csak direkt utasításként használható RÓ után X 


Az 1. számú mellékletben található RO, RI, ... mini programokat, adaptálva 
vigye kazettára: SPRINT3$ —1, "RI" : CSAVEH —1, "RI" betöltés: 
510 INPUT$ —1, N$ : IF N$ C€5"RI" THEN 109 § 520 CLOAD$ —1, 

"NI"£ 5RUN7 (Ig, I, ...) A rögzítés kettős címmel történik. Igy a betöltés 


többkarakteres cím (pl. R42) azonosításával történhet g 


Ha B(I) 21, célszerű S(D-IO"B(I) szerepeltetése 3290-benf A "programozó" 
disk-re az elemi szubrutinokat SAVE DSKI. CIM, MERGE utasítással kell 
rögzíteni; Betöltésük JPMERGE DSKI1. CIM F 


PRIMO: 


Az 1. számú mellékletben található RO, RI, ... mini programokat, adaptálva 


vigye disk-reg — Bővítse a mini programtárati 


TV COM: 


VT-16: 


Az 1. számú mellékletben található R1, R2, ... mini programokat, adaptálva 
vigye disk-ref A rögzítés ASC kódban történjen (OPEN3t6 : OUTPUT "R1" : 
LLIST$6 :: CLOSEs6 : OUTPUT) X Bővítse a mini programtárat X 


Az 1. számú mellékletben található R1, R2, ... mini programokat, adaptálva 
vigye disk-rei A rögzítés ASC kódban történjen (SAVE "RI", A). Ha 
Wdisk-et használ az sokkal gyorsabb £ 
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Az eddig megismert 124 programot nyers- 
anyagnak tekinthetjük újabb programok fel- 
építéséhez. Két vagy több programot is ösz- 
szefűzhetünk és ha kell kiegészíthetjük 
klaviatúráról. Figyeljünk arra, hogy címkét 
csak azon a BASIC területen módosíthatunk, 
amelyen a program behívása történt. Újabb 
feltételeket viszont bármikor beszúrhatunk 
meglevő címkék közé. 

A személyi számítógépek szűk keresztmet- 
szetét a lassú INPUT (adatok és programok 
bevitele a gépbe) és OUTPUT (adatok és 
programok nyomtatása) képezi. Ezt részben 
feloldja :a háttértárolókon rögzített prog- 
ramokból való építkezés, de ez a program- 
készlet alapos ismeretét tételezi fel. 
A kezdő programozók számára a "programo- 
zó" disk alkalmazását ajánlhatjuk. A prog- 
ramozó disk a gyakran előforduló és sok 
krakterből álló utasítások és elemi szub- 
rutinok tárháza. Ilyen tármintát mutat be 
az 1-es számú melléklet. Az elemi szubruti- 
nokat és utasításokat mini programokként, 
RÓ, RIl,..., RI,... stb. névvel ellátva rög- 
zítjük a disk-en. A mini programok 3LOAD 
"RI", 8 utasítással tölthetők be a kijelölt 
BASIC területekre. 

Ha bármilyen programot megterveztünk 
fejben és már alapítottunk programozó 
disk-et akkor a program gépen való meg- 


írása az alábbi lépésekben történhet: 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT—-16: 


5SLOAD CAS RO £ 5RUNf SNEW f 
SLOADCASRIX 5REN a, 10 £ 5RUN 104 helyett 51083 törölve és. RUN F 
Ha visszaálltunk a BASIC terület kezdőpontjára óvakodjunk utasítások tör- 


lésétől 


Az ny pontos beállításától eltekinthetünk § A programépítés kazettás egy- 


séggel lassú 


"RO" nem értelmezhetőf  — Program építés: fMERGE DSKI. RIX RI a prog- 
ram első blokkja. Kiegészítő utasítások lekopogása k 5SAVE DSKI. PI, 
MERGEX H53MERGE DSKI.RJ]i4 ÁTINDEXELÉS 5RESEOUENCE xPl)i 
DSAVE DSKI. PJ, MERGE €X, És így tovább, majd ZMERGE DSK! d PI; 


53CMD LOAD "RÓ" : RUN$Z 5CMD LOAD"RI":LISTX 3POKE 16548,234 
: POKE 16549,67 : LIST : RUNX 5CMD LOAD "RJ" : LIST$£ 3POKE 
16548,234 : POKE 16549,67 : LIST : RUN stb.X "RÓ" 5101 POKE 16549, 
PEEK(16634) £ 5102 POKE 16548, PEEK (16633) —2 


RI btöltése £ Átindexelési  Rögzítész RJ betöltéseg Átindexelésf Rög- 
zítési RK betöltése Átindexeléseg Rögzítésestb.$£ RI, RJ, RK, ... BETÖL- 


TÉSEX; Nem szereplő utasítások lekopogása (beszúrás), átírás, törlés kk PRUN£ 


Az RI, RJ, RK program felépítésef PLOAD RIX LIST 4 Utolsó címke Cli 
53LOAD "RJ7X -5RENUM CI-10§ Utolsó címke C2X 5SSAVE"2:RJ", 
AX SPLOAD/"RKVi 5PRENUM C2r19f SMERGE "RJ)"Y SMERGE "RI" 
DLISTÍ SRUNd Az RÓ program nem funkcionál £ 
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5SLOAD "RÉ", 8 : RUN 

5SLOAD "RI", 8 : LIST 

SÁTINDEXELÉS ÉS TÖRLÉS, PARAMÉTEREK EGYEZTETÉSE. 
SDISK-EN NEM SZEREPLŐ UTASITÁSOK LEKOPOGÁSA 
5SPOKE44, 8 : POKE43, 1 : LIST : RUN 


5BLOAD "RJ", 8 : LIST 

PÁTINDEXELÉS ÉS TÖRLÉS, PARAMÉTEREK EGYEZTETÉSE 
2DISK-EN NEM SZEREPLŐ UTASITÁSOK LEKOPOGÁSA 
25POKE44, 8 : POKE43, 1 : LIST : RUN 


SLOAD "RK", 8 : LIST . . . 

ÉS IGY TOVÁBB A PROGRAM VÉGÉIG, MAJD 
5POKE44.8 : POKE43,1 : LIST 
5RUN 104 


— Az RÓ mini program: 


5101 POKE44, PEEK(46) 
5102 POKE43, PEEK(45) —2 
5103 NEW : STOP 


a programok mindegyikének a bevezető 
eleme. Futtatása STOP-ig lehetséges, így 
akárhol tartunk a program építésben egy 
RUN a BASIC terület feltolását oldhatja 
meg. Minden betöltést átindexelés és törlés 
követ. A mini programokban szabvány para- 
méterek szerepelnek. A program igényei 


szerint esetleg át kell írni, vagy aktuális 


értékekkel kell helyettesíteni őket. Ezt 
nevezzük egyeztetésnek. A programozó 
disk nem tartalmazhat apró utasításokat 


(pl. DIM, STOP, stb.). Ha ilyenekre van 
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ABC: 


[125] ok; 


125 ] OK; 


HTZ: 


TEXAS: 


5SMERGE DSKI.PJ 3 És így továbbá CLISTZ Kiegészítések -RUN ? 

Tehát betöltjük a logikai rendbe állított blokkokat, monoton átcímkézzük, 
kiegészítjük és rendre rögzítjük Pl, PJ, ... névvel. Végül egymásután betöltjük 
MERGE utasítással. Ha a címkék rendje nem szigorúan monoton növekvő, 
a később betöltött felülírhatja a korábbit. A felépített program. teszőlegesen 
módosítható, beleértve a törlést is. OK 


PRIMO: 


TV—-COM: 


Az 1. számú mellékletben C—64-re érvényes programokat talál, ezeket 


először adaptálnia kell 


Az 1. számú mellékletben C—64-re érvényes programokat talál. Adap- 


VT—-16: 
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tálja és ASC kódban rögzítse őket £ 


Az 1. számú mellékletben C—64-re érvényes programokat talál, ezeket 
először adaptálnia kell X 

FONTOS: A gép elemei összedolgoznak INPUT—OUTPUT feladatok esetén g 
Lemezről hívhatjuk a programot. A program INPUT igényét (adat) lemezről 
veheti le (ha előbb odatettük). A program PRINT-jére lemezt, printert, kép- 


ernyőt hívhatunk £ 


szükség a programokban, címkével együtt 
lekopogjuk. A címke mutathat a mini 
program elé (de a védett programrész mögé), 
közé és után. A mini programok között 
természetesen a P1lOd-—PlI23 is szóbajöhet. 
Ezekből akármilyen részek törölhetők az át- 
címkézés előtt, vagy után. Ugyanez vonat- 
kozik az új utasításokkal való kiegészí- 
tésre is. 

A programok géprevitele eszerint  szer- 
kesztési munkává egyszerűsödik. A szerkesz- 
tés annál egyszerűbb, minél bővebb a prog- 
ram tár és a "programozó" disk. 

A program futtatása figyelmet igényel. 
Az egyszerű RUN az RÓ programot akti- 
válja és CONT a STOP elhárítására ugyan 
alkalmas, de a programot nem hordozó 
BASIC területre vonatkozik és így REDY 
választ indukál. A programot tehát RUN104- 
el lehet elindítani. Erre az ismétléseknél 
is figyelni kell. RÓ törlése is megoldható 
egy trükkel. Elegendő a REM szót a cím- 
kék után beszúrni. Ez más utasítások törlésé- 


re is alkalmazható. 


125 Alapaítson "programozó" disk-et és rögzítse az RÓ,..., R30,... mini programokat az 


1. mellékletből. Szerkessze meg az eddig megismert PIÓd—P122 programokat: 
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ABC: 


HTZ: 


TEXAS: 


PRIMO: 


TV COM: 


VT-16: 
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seg 


Próbálja ki az alábbi rendszerkapcsolatokat: VT BASIC lemez az A floppy-ban £ 
Program és adatlemez a B floppy-banf 5:LOAD "B : P62" LENT ]J§ 510 
N-10 : DIM A$(N)X 5DSAVE "B: P62D7" LENT Ji DSAVE 7C :P62D" 
(ENT]E SSYSTEM [ENTÍE 5SVTBASICB :P62D 5 B : NEVEK 
LENT JE SSYSTEME 5VTBASICB : P62D AB : NEVEK CLPT1 [(ENT[z 
SYSTEM X SVTBASIC B : P62D CC : MINEK CLPTI; SYSTEM -:Z 


I. SZ. MELLÉKLET 


LEGÓ RUTINOK C-—64-RE. 


RÓ 5109 PRINT "BASIC POINTER FELTOLAS" 
510 POKE44, PEEK(46) 
5102 POKE43, PEEK(45) —2 
5163 NEW : STOP 


RI 5 1ÓÓ PRINT "M":N TOMB BEOLVASASA" 
5191 DIM A(M, N) 
5102 FOR [-1 TOM : FOR J-1 TON 
5 193 READ A(I, J) : PRINT A(I, ID; : NEXT J, I 
5 104 DATA 


R2 5 10 PRINT "Mr"! TOMB BEOLVASÁSA" 
5101 DIM A(M) 
5102 FORI-I TOM 
5 1093 READ A() : PRINT A(D; : NEXT 
5 104 DATA 


R3 5 109 PRINT "M"N TOMB INPUTJA" 
5101 DIM A(M, N) 
5102 FOR I-I TOM : FOR J-1 TON 
5 103 INPUT "ADAT? " ; A, J) 
5 194 PRINT A(I, JD); : NEXT J, I 


R4 5109 PRINT "Y-F(X) ERTEKTABLAZATA" 
5 161 INPUT "X KORLATAI ES LEPESKOZE" ; A, F, S 
5102 FOR X-ATOF STEPS 
5 103 REM Yz- A FUGGVÉNY 
5 104 PRINT X ; Y, : NEXT 
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R5 5160 INPUT "N KEREKITSE P TIZEDESRE?" ; N, P 
5161 X-N : X-INT (191P"rXr.5)/16d1P 
5102 PRINT X 


R6 5109 PRINT "ADATSOR OSSZEGE" 
5181 FOR I-1 TOM : H-HrA(I) 
5192 NEXT : PRINT H 


R7 5100 PRINT "R2 ES R6 ALKALMAZASA" 
5200 PRINT "M"r1 TOMB BEOLVASASA" 
52061 DIM A(9) 
5202 FOR I-1 TO9 
5203 READ A(1) : PRINT A(1) ; : NEXT 
5204 DATA 5, 7, 4, 8, 3,9,1,9, 6 
53009 PRINT "ADATSOR ÖSSZEGE" 
5301 FOR LI-1 TO 9 : H-H:A(1) 
52302 NEXT : PRINT H 


R8 5160 PRINT "ADATSOR SZORZATA" 
5D1Ó1 H-I 
5182 FOR I-1 TO M : H-HrA() 
5103 NEXT : PRINT H 


R9 5199 PRINT "VEKTOROK SKALARIS SZORZATA" 
5181 FOR I-1 TOM : H-H-rA(D) "BD 
5102 NEXT : PRINT H 


RID 5100 PRINT "MATRIXÓK ÖSSZEGE? 
5101 FOR I-1 TO M : FOR 3-1 TON 
5102 AC, J)- AC, JD) £ BU, JD : PRINT AC, D; 
5103 NEXT J,I 
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RI1 


RI1I2 


RI3 


R1l14 


5160 PRINT "HASONLO EGYEDEK MEGSZAMLALASA" 
5161 FOR I-1 TOM : IF A(D-B THEN N-N"1 
5192 NEXT:PRINTN 


AA Az R11l a B számnál kisebb elemeket szám- 
lálja meg. Ha IF alatt BC-A(IY.G€-szerepel- 
ne, akkor a ([B, C] zárt intervallumba eső 
adatok számát mutatná ki. Az egész számo- 
kat az INT(A(1))-A(1), a D-vel osztható 
számokat az INT (A(D/D)-A(D/D, az egyen- 
lő hosszúságú szavakat a LEN(A$(D)-B 
stb. logikai függvények segítségével szám- 
lálná. 


5190 PRINT "TOSZTALYOZAS ES SZAMLALAS" 
516Ó1 FORI-1 TOM 

5102IF A(J.B THEN N-Nt1 : GOTO 195 

5183 1IF A(19-B THEN P-P:1 : GOTO 105 

5104 R-R-r1 

5105 NEXT : PRINT N, P, R 


5109 PRINT "A(M, N) ROGZITESE KAZETTARA? 
5101 OPEN2, 1, 2, "FILE NEV" 

5192 FOR I-1 TOM : FOR J-1 TON 

51063 PRINT52, AC, J) : NEXT J, I 

5104 CLOSE2 


5160 PRINT "A(M, N) BETOLTESE KAZETTAROL? 
5161 OPEN2, I, d, "FILE NEV" : DIM A(M, N) 
5102 FORI-1 TOM :FORJ-1 TON 

5103 INPUTt2, AC, J) : PRINT AG, I); 

5104 NEXT : CLOSE2 
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AA R13 és R14 számsor vagy számoszlop ese- 
tén is alkalmazható, ha M, illetve N-et 


1-gyel azonosítjuk. 


RI5 5100 PRINT "REKORDOK (A, B, C ADATOKKAL) ROGZITESE 
KAZETTARA" 
5101.OPEN2, 1, 2, "FILE NEV" : X$-CHR$(13) 
5192 FORI-I TOM 
5103 PRINT£2, A ; X$B ; X$C ; X$ 
5104 NEXT : CLOSE2 


R16 5100 PRINT "SEO FILE ROGZITESE DISK-EN" 
5101 OPENG, 8, 6, "b : FILE NEV, S, W" 
5102 FOR II TOM 
5103 PRINT:6, A(1) 
5104 NEXT : CLOSE6 


R1I7 5100 PRINT "SEO FILE BETOLTESE DISK-ROL" 
5101 OPEN6, 8, 6, "0 : FILE NEV, S, R" 
5102 FOR I-1 TOM 
5103 INPUTz:t6, A(I1) : PRINT A(D; 
5104 NEXT : CLOSE6 


R18 5100 PRINT "ISMERETLEN HOSSZUSAGU ADATSOR 
SEO BETOLTESE DISK-ROL" 
5101 OPEN6, 8, 6, "0 : FILE NEV, S, R" : DIM B(255) 
5102 INPUTS6, A : KzKs1 : B(KJ-A : PRINT A: 
S51031FST €5 64 THEN 102 
5104 CLOSE6 


RI9 5100 PRINT "TOBBTAGU REKORDOK SOROS ROGZITESE 
DISK-EN" 
5101 OPEN6, 8, 6, "0 : FILE NEV, S, W" : X$-CHR$X(13) 
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RI9 


R2Ó 


R21 


R22 


R23 


R24 


5192 FORI-I TOM 
5163 PRINT:t6, A ; X$B ; XÉC 
5164 NEXT : CLOSE6 


5109 PRINT "HIBAINFORMACIO A LEMEZEGYSEGROL" 
5IÁl OPENIS, 8, 15 

5162 INPUT$15, EN, EM$, ET, ES 

51093 IFENZ1 THEN PRINT EN, EM$, ET, ES 

5104 CLOSE15 : RETURN 


51009 PRINT "POINTER ALLITAS FLOPPY-N" 

5191 OPENIS5, 8, 15 

5102 H-INT (I/256) : L-I—Ht256 

51083 PRINT$15, "P":CHR$(64YCHR$(L-CHR$(H)-r 
CHRÉK(1) : CLOSE15 : RETURN 


5100 PRINT "RELATIV FILE MEGNYITASA MUNKARA" 
5101 OPENIS5, 8, 15 : OPEN6, 8, 6, "FILE NEV" 
5192 RETURN 


5109 PRINT "FUTAS SZABALYOZAS" 


5101 X$-" " : GETX$ : IF X$-" " THEN 101 
5102 IF X$- "N" THEN END 
DA A 101-et 2101 INPUT X$ is helyettesít- 


heti, ha X$-nek más funkciója nincs a prog- 


ramban. 


5109 PRINT "LEXIKOGRAFIA" 
5161 FOR I-1 TO M-I! : FOR K-IrI TOM 
:" 5162 IF B$(I) GB$(K) THEN 1094 
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R24 5103 S$-B$(I) : B$(D-BÉ(K) : B$(K)-S$ 
5104 NEXTK 
5165 PRINT B$(I) : NEXTI 


R25 5100 PRINT "CIM NYOMTATASA" 
5101 OPEN4,4 
51062 PRINT-4, "CIM 78 
5163 CLOSE4 


R26 5 109 PRINT "SZAMOK JOBBRA IGAZITASA" 
5D101X$-" 9 
5102 FOR I-1 TOM 
5103 N$(D-RIGHT$(X$-STR$(A(1),H) 
5104 PRINT N$(1) : NEXT 


, 


R27 5100 PRINT "SZAVAK BALRA IGAZITASA" 
5101 X8-7 28 
5102 FORI-I TOM 
5103 N$(D-LEFT$(A$(I.-X$,H) 
5104 PRINT N$() : NEXT 


AA R26 és R27 printerre is alkalmazható az 
OPEN4 4, CLOSE4 és (PRINT)Z4 kiegészí- 


téssel. 


R28 5100 PRINT "POINTER ALLITASA PRINTEREN?" 
5101 H-INT(Y/256) : L£Y—Ht256 
51062 PRINT:t4, CHR$(27-CHR$(16$CHR$(HYCHR$L) " . 7" 


R29 5100 PRINT "MI, MJ MIKRO KARAKTER KIGYUJTASA A 
KEPERNYON" 
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R29 


R31 


R32 


2191 P-8192 5 230 "INT(M[/8) : (MI AND 7) 1 8"INT (MJ/8) 
21092 POKE P, PEEK(P) OR 21((7—MJ) AND7) 
5103 RETURN 


51 PRINT "BASIC POINTER ALAPALLASA" 
22 POKE44, 8 : POKE 43.1 


5100 PRINT " LEGO PROGRAMOZAS RENDJE" 

5101 REM : LOAD 7R07, 8 : RUN 

5102 REM : LOAD "RI" , 8 : LIST : ATINDEXELES : 
REGI INDEX TORLES : AKTUALIZALAS 

5103 REM : POKE44, 8 : POKE43, 1 : LIST : RUN 

5104 REM : LOAD "RJ", 8 : LIST : ATINDEXELES : REGI INDEX 
TORLESE : AKTUALIZALAS 

5105 REM : POKE44.8 : POKE43,1 : LIST : RUN 

5105 REM : LOAD "RK", 8 : LIST : ATINDEXELES : 
REGI INDEX TORLES : AKTUALIZALAS 

5107 REM : POKE44, 8 : POKE43, 1 : LIST 

5108 REM : UTASITASOK BESZURASA 193-NAL NAGYOBB 
CIMKEVEL 

5109 REM : HA A PROGRAM KESZ, AKKOR RUN!104, 
ELLENKEZO ESETBEN RUN 


5199 PRINT "J-EDIK HO I-EDIK NAPJA AZ EV D(I, J)-EDIK 
NAPJA" 

5161 DIM DC31, 12) : Nz1 

51092 FOR J-1 TO 12 

5103 IF J-1 OR J-3 OR J-5 OR J-7 OR J-8 
OR J-10 OR J-12 THEN M-31 : GOTO 196 

5194IF J C5 2 THEN M-39 : GOTO 196 

5105 M-28 : REM 29 

5106 FOR I-1 TOM : D(I, J9-N : N-ENs1 : NEXT I 

5197 NEXT J : INPUT "J, I?" ; J, I: PRINT D(I, J) 
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290 


R33 


R34 


R35 


R36 


5100 PRINT "I-EDIK HO J-EDIK NAPJAN BETETT T TOKE 
"P9-OS KAMATA EV VEGEIG" 

5161 INPUT ?I, J, T, P? " ; I, J, T, P : NX(12—1)!38-30—J 
: K - T"P"rN/369009 

51092 PRINT 71-71, 73-7J, "T-"T, "P-" P, "KAMAT- "K 


5169 PRINT "SZOVEG ATTETELE ASC KODBA" 

5161 INPUT "SZOVEG" ; A$ : N-LEN (A$) : PRINT N 

5192 FORC-I TON 

5103 IRAS-ASC(MIDX(A$, C,1)):PRINT IRAS ; : NEXT C 
: GOTO 181 


5100 PRINT "N ELEMU MINTA VETELE AZ (A, B) 
INTERVALLUMBOL" 

51061 INPUT "N, A, B? " ; N, A, B 

5182 FOR k-1 TON : X-A:(B—A)"RND (0) : PRINT X ; : NEXT 


5109 PRINT "VEGTELEN SOROZAT KOZELITO HA 
TAREKTEKE" 
5161 PRINT "A 101 CIMRE IRJA BE A SOROZATOT 
PL. DEF FNA(N)Y(1--1/(Nr1))XN:1)" 
5102 N-1 
5163 N-N51 : IF FNA(N).-FNA(N—1) AND FNA(N1) C- FNA(N) 
THEN 166 
5104 IF FNA(N) 5 - FNA(N—1) AND FNA(N"1) 5 - FNA(N) 
THEN 166 
5165 PRINT "A SOROZAT NEM MONOTON" 
51066 IF ABS (FNA(N:1)—FNA(N)) C1 E-6 ORN 5 - 1E6 THEN 
PRINT FNA(N) : END ELSE 183 


AA A DEFFFN jellel definiált A(N) függvény 
helyettesítési értékét a gép kiszámítja 
anélkül, hogy a vezérlést 101-re adnánk át, 


elgendő az ergumentumot beírni pl. A(100). 


R37 


R38 


R39 


R40 


5106 PRINT "VEGES MERTANI SOROZAT N-EDIK TAGJA ES AZ 
ELSO N TAG ÖSSZEGE" 

5191 INPUT "Al, 0, N?" ; Al, 0, N 

51082 PRINT "AN-—"A1FOT(N—1) CHRX(13) "SN-TAI1t (O1N—1)/ 
(20—1 


5106 PRINT "PARALLELOGRAMMAK ES HAROMSZOGEK 
TERULETE KET OLDAL ES ALTALUK ZART SZOGBOL" 
51061 INPUT "A, B, S SZOG?" ; A, B, S 
5102 PRINT "PT-"AFBESIN (S"r/180), "HT-7AFBt 
(SIN (S"r/180))/2 


5160 PRINT "M"N ES N"R TIPUSU TOMBOK SZORZATA" 
516I I-II 

5102 K-i 

5103 J-I 

5104 F(JD-A(I, J)"B(J,K) : C(I, K) - C(I, K) - F (J) 

5105 J-J1 : IF JC-N THEN 184 

5106 PRINT C (I, K) : K-Ks1 : IF KC-R THEN 193 

5107 El : IF IC - M THEN 182 


5109 PRINT "N"N TIPUSU MATRIX INVERZE" 

5161 FORIE-ITON 

5162 FOR J-1 TON :IF A(I, J))- 0 THEN NEXT J 

5103 FOR K-1 TON : C(KHA(I.K) : A(J, K) - C(K) 

5194 C(K)-BŰ, K) : B(J, Kh) -C(K) : NEXT K : D-I/Adi, I) 

51065 FOR K-I TON : A(I, K)-D"A(I, K) : BEI, K) - D"B(I, K) 
: NEXTK 

5196 FOR L-1 TON : IF L-J THEN 108 

5107 E -— A(L, 3) : FOR K-I TON : A(L, K) - A(L, K) " ETAG, K) 
:BÜ, K)- B(L, K) t E" B(I, K) :NEXTK 

5108 NEXT L, I 

5189 FOR [I-I TON : FOR J-1 TON : PRINT B(I, J): : NEXT J; 
: PRINT : NEXT I 
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R41 5100 PRINT "M"N MERETU TOMB NYOMTATASA" 
5101 OPEN4,4 : REM SOROK NYOMTATASA 
5102 FORI-1 TOM 
51083 FOR J-1 TON : B(JD-A(I, J) : NEXT J : 
PRINT:4, B(1); B(2); . . . ; B(N) 
5104 NEXT I : CLOSE4 


R42 5100 PRINT "SULYOZOTT SZAMTANI ATLAG" 
5161 FOR I-I TOM : INPUT "X ADAT, S GYAKORISAG?" ; X, S 
5102 A-A:XES : B-1B:S : NEXT 
5103 PRINT "ATLAG-" A/B 


R43 5100 PRINT "ATLAGOS FEJLODESI MUTATO" 
5101 FOR I-1 TOM : INPUT "7P FEJLODESI RATA, 
S GYAKORISAG? "; P, S : G-1 
51062 G-GPIS : N-N-S : NEXT : PRINT "MUTATO- " 
GW(1/N) 


R44 5100 PRINT "A:BX EGYENES ILLESZTESE PONTSORHOZ" 
51061 INPUT "A PONTOK SZAMA? " ; N 
5102 FOR I-1 TON : INPUT "X, Y KOORD?" ; X, Y : U-U:X 
: VzV:Y : KK 1 XT2- LELYYT2 
5103 S-S:(XFY : NEXT : U-U/N : V-V/N : PRINT U, V, K, L, S 
5104 B-(S-NFtU"rV)(K—N"U1t2) : AÁ-V — BrU : 
PRINT A "47" Bt XZY 
5105 PRINT "R -" (S-NFUFV)/SOR((K—NrU12) t (L—-NtVt2)) 


R45 5100 PRINT "KEY INPUT, DISK ES PRINTER OUTPUT" 
5101 INPUT "ADATSZAM? " ; N : DIM A(N) : FOR I-I TON 
: INPUT "ADATOK? " ; A(D : NEXT 
5102 OPENG6, 8, 6, "0 : FILE CIM, S, W" : FOR I-1 TON : PRINT36, 
A(1) : NEXT : CLOSE6 
5103 OPEN4.4 : PRINT:4, "CIM" : FOR I-1 TON : PRINTz4, 
I ; A(I) : NEXT : CLOSE4 
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R46 


R47 


R48 


R49 


5100 PRINT "DISK INPUT, PRINTER OUTPUT" 

5101 OPEN6, 8, 6, "FILE CIM, S, R" : DIM A(1$0b) 

5102 INPTUS$6, A: A)-A:I1I-I-r1:IFST CS 64 THEN 182 

5103 CLOSE6 : OPEN4,4 : FOR J-p TO I—-1 : PRINT:4, J ; A(J) 
: NEXT J : CLOSE4 


2100 PRINT "FIX SZERKEZETU STRINGEK BEVITELE" 

51061 INPUT "REKORDSZAM? " ; M : DIM R$(M) 

51062 PRINT 7A-TOL A-IG IRHAT EGY ADATOT" 

5103 PRINT BD kkANkktkkkAkikkökiökkk:kkxA7 

5104 FOR I-I TOM : INPUT R$(1) : NEXT 

5105 OPEN4.4 : FOR I-I1 TOM : PRINT34, R$(1) : NEXT : CLOSE4 


5100 PRINT "F LOGIKAI SZAMMAL, M REKORD (C KARAKTER 
HOSSZU) ROGZÍTESE DISK-EN" 

5101 INPUT "F SZAM, C HOSSZ, M REKORDSZAM?" ; F, C, M 

5102 OPENIS5, 8, 15 : OPEN F, 8, 6, "NEV, L, :CHR$ (C) 

51093 FOR I-1 TOM : GOSUB 106 

5104 PRINT F, R$(1) : NEXT : END 

5105 CLOSE F : CLOSE15 

5106 H-INT (1/256) : L-I — Hr256 

5107 PRINT$I15, "P" 4 CHR$(6) CHR$(L) CHR$(H) CHR$(1) 
: RETURN 


5100 PRINT "FIX SZERKEZETU STRINGEK ÖSSZETEVOKRE 
BONTASA?" 

5161 INPUT "REKORDSZAM M, OSSZETEVOK SZAMA 
N? "7"; M,N : DIM X$ (M, N) 

5102 FOR I-1 TON : INPUT "KEZDO POZICIO ES HOSSZ AZ 
ÖSSZETEVOKNEL?" ; P(I), C(D : NEXT 

5103 FOR J-I TOM : FOR I-I TON : X$(J, D - MID$ (R$(J), P(ID, 
c(D) 

2104 PRINT X$(J, D 5: NEXT I, J 
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R50 


51009 PRINT "78-AS FLOPPY 9-ESRE ALLITASA" 


5161 OPENIS, 8, 15 


5192 PRINT:15, "M—W" CHR$X(119) CHR$ (8) CHRS$ (2) 
CHR$ (41) CHR$ (73) 


5193 CLOSE 15 


A LEGO programtárból csak mintát adtunk. 
A gyakorlati munka során keletkező prog- 
ramrészletek közül azokat, amelyek gyakori 
előfordulására számíthatunk, mindig rögzít- 
sük a LEGO DISK-en.. A programozási felada- 
tok változatossága miatt a LEGO programok 
nem illenek be mindig eredeti összetételük- 
ben, de törlés, átírás, beszúrás révén alkal- 
massá tudjuk tenni. Az is előfordul, hogy 
ugyanezt a LEGO rutint többször is be- 
hívjuk és törlések után más-más részletét 


építjük be az adott helyre. 


2. SZ. MELLÉKLET 
2. UTASÍTÁSKÉSZLET 


Ha a személyi számítógépek változóit, műveleteit, függvényeit, parancsait és utasításait 
gépenként adnánk meg, gyakran ismétlésekbe bocsájtkoznánk. Ezt el akarjuk kerülni oly mó- 
don, hogy az egyező elemeket egyszer írjuk le, kiemelve az esetleges kivételeket. A parancsok 
és utasítások esetén ez hármas tagozódást eredményez: 


egyező utasítások, 
egyező funkciót betöltő utasítások, 
géptípusra jellemző utasítások. 


Az egyező utasítások a megengedett kiegészítések által eltérő, illetve más. hatókörű funk- 
ciót nyerhetnek géptípusonként, ezért a második csoportban is megjelenhetnek. Az egyező 
funkciót betöltő utasításokat a funkcióhoz kapcsolva mutatjuk be. A géptípusra jellemző 
utasításokat, a teljesség igénye nélkül, hatókörük jelzésével soroljuk fel. 


1. Adatok és azonosítók 


A személyi számítógépek az alábbi adatokat képesek kezelni: 

— Egész számok (kiv: TEXAS, TV COM). Azonosításuk A?9,..., Z90 ; AG9o,...,A990;...; 
Z07,... 2970 változókkal történik. 

— Valós számok. Azonosításuk A,...,Z3AD,...,A9;...;ZO , ..., 29 változókkal történik. 

— A valós számok egyszeres (£7 számjegyű), vagy kétszeres (28 számjegyű) pontosságúak 
lehetnek (kiv: C—64, ABC, TEXAS, TV COM). Azonosításuk A!,... Z!5AD!,...,29!, illetve Az, ..., 
ZA Dst,...294 változókkal történik. 

— A számok eredeti (fixpontos pl. 530.25) és normál (lebegőpontos pl. 5.3025E2; 
5.3025D2) alakban vihetők be és kaphatók output-ként. 

— A számok 1090-es és 16-os (HEXADECIMÁLIS)! " rendszerben vihetők be a gépekbe. 
Az utóbbi a TEXAS és VT—16-ra jellemző (pl. $H2457). sa08 hev da 

-— Karakter konstansok (STRING-ek). Azonosításuk A$,... Z$;A0$,... 20$ (kiv: ABC, ahol 
AXX,...) változókkal történik. 

— A karakter konstansok lehetnek szöveg, (pl. "BABA") és szám, (pl. "5.3025") jellegűek. 

— Tömbök (számok vagy STRING-ek véges hosszúságú (oszlopa), táblázata, vagy táblázat 
sora). Azonosításuk a tartalom jellege és típusa szerint A7Z(N), B(N), Ct(N), D$(N); E9(M, N), 
B(M, N), C$(M, N), DXM, N) stb. 


2. Numerikus műveletek. 


Összeadás műveleti jele 4 és ADD (ABC—80) 
Kivonás műveleti jele — és SUBG (ABC—80) 
Szorzás műveleti jele § és MULXK (ABC—80) 
Osztás műveleti jele / és DIV.X (ABC—80) 
Hatványozás műveleti jele A ,f,§§ 


Gyökvonás: - törtkitevős hatványozás. 
— A számok műveletei ismertek. A számtömbök műveleteire a mátrixok (vektorok) szabá- 
lyai érvényesek. 


15 Részletesebben a4. számú mellékletben. 
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3. Számok és string-ek viszonya 


ALB, ASB, A-B, AzB, AZB, AC2B. A$-B$, A$CB$, A$-B$, A$ZB$, A$ZB$, . 
A$C5 B$. Két szám vagy két string viszonya tehát kisebb (), kisebb vagy egyenlő (9), egyen- 
lő (-), nagyobb vagy egyenlő (2), nagyobb C) és nem egyenlő (CD) lehet. 


4. Logikai függvények 
Két szám vagy string között kijelölt viszony függvényként viselkedik a számítőgépben. Ha 


ugyanis a kijelölt viszony igaz, akkor a függvény —1, ha nem igaz, akkor Í értéket vesz fel, 
azaz 


Y-(AL); Y-]J-1, ha A.B Y-((A2B); Y-J—1, ha A2B 
0, ha AZzB Ó, ha ASB 

Y-(A2B): Y-] —1, ha ASB Y-(AZB); Y-]J —I, ha AZzB 
Ó, ha AZB "0, ha A XB 

Y-X(Az B): Y-) —1, ha A-B A(ALB); Y-f—1, ha AC5B 
0, ha AB Ó, ha A-B 


— Két vagy több logikai függvény logikai kifejezéssé fűzhető össze az AND, OR, XOR, 
NOT stb. "műveleti" jelekkel. A logikai kifejezés is kétértékű az alábbiak szerint: 


Y-(Y1 AND Y2);  Y-]—-1, haYl-—-1ésY2-—1 
0 egyéb esetekben 


Y-((Y1 OR Y2); Y-J0, ha YI-0d és Y2-0 
—1, egyéb esetekben 


YAX(YI XORY2); Y-f—1, ha YI- —1 és Y2-0 vagy Y1-0 és Y2- —1 
0, egyéb esetekben 


Y- NOT YI; Y-]J—1, ha Y1-Ó 
19, ha YI-—1 


— Eszerint a —1-es kimenethez AND esetén minden, OR esetén legalább egy és XOR 
esetén csak egy összetevő —1-es kimenete felel meg, (pl. (2.3 AND 355)-0, de (2C3OR 
355)- —1 és (2.3 XOR 355)9- -I, ugyanakkor (2.3 AND3C5)-—1, (2COR 3X5)- -1 és 
(2.3 XOR 305) - 0). A logikai függvények lényegében számok, így numerikus műveletekben is 
résztvehetnek (pl. 2r (3.XS)"12 r 4"" (744) stb.). Fő alkalmazási területük az ágaztatás, ahol 
A —1 vonzata a THEN, a nulláé az ELSE ág. 


296 


UTASITÁSKÉSZLET 


5. Matematikai függvények 


— Számításainkban gyakran előforduló elemi függvényeket definiáltak a számítógépek 
mindegyikére (pl. DEF ABS(X)-, DEF COS(X)-, stb.). Igy elegendő a független változót a függ- 
vény nevébe behelyettesíteni, hogy a megfelelő függvény értéket nyerjük (pl. ABS (—2)-2; 
COS (3.14)9- —1 stb.). Standard függvények az alábbiak: 


ABSCX) siyzámég key tis x szám abszolút értéke. 

ATN(X) aa stvlmésé élése etes y radián tangense x. 

CTOSÉX) sees e ő súg ás ge x radiános szög cosinusa. 

EXP(X) s ersz ugeeeaíeáése e alap x-edik hatványa (e 52,71). 

INTEI szezavsgk tsz ő a legnagyobb egész szám x-től balra. 

LOG(X) ............. x szám e alapú logaritmusa. Visszakeresés: EXP (LOG(X)) - X. 

RNDCX) cézzásaektess egyenletes eloszlású véletlen szám a (0,1) intervallumból. 

SGN(X) ............. x szám fekvését jelzi a számegyenesen: —1, ha x CO, 1, ha x-0 
és 0, ha x-Ú. 

SINCE) ségét ssrésáság x radiános szög Ssinusa. 

SOR(X) ............. x szám pozitív négyzetgyöke. 

TANÓ) szesz ése ség kést x radiános szög tangense. 


— A matematika függvények . numerikus jellegűek, így műveletekre is alkalmasak (pl. 
345 SIN(X). Fontos körülmény, hogy az argumentum (X) függvény is lehet (pl. EXP (—X12/2), 
SOR (1—SIN(X) 12) stb.). 
6. STRING változós függvények 


STRING-ek alapítását, konverzióját és darabolását a számítógépek STRING függvények- 
kel oldják meg. Ezek az alábbiak: 


YS-"KARAKTEREK" .. STRING-ek alapítása krakterekből. 


Y$-STRÉ(X) ......... x számból STRING számot képez (kiv.: ABC, ahol Y$-NUM G 
(X). 

Y$-CHRÉ(K) ......... k ASC kódhoz karaktert rendel. 

Y$-STRING$(N, K).... k ASC kódhoz n elemű STRING-et rendel. (Kiv.: C—64; 
TEXAS; Y$-RPTS$ (N, K)). 

Y-VAL(X$).......... Ha X$ "szám", valós számmá változtatja. 

Y-ASC(XB) .......... X$ első karakteréhez tartozó ASC kódot állítja elő (kiv.: TV COM; 
Y-ORD(X$)). 

Y$-MID$(X$,J,N) ....  X$-ből n karaktert emel ki a j-edik pozícióval kezdve (kiv.: TEXAS; 
Y$-SEG$ (X$, J, N). TV COM; Y$-X$ (J: JN —1)). 

Y$-RIGHT$(X$,N) ... X$ utolsó n karakterét emeli ki (kivételek: ABC; Y$ - MID $ 


(X$, K—N:1, N), ahol k a string hossza. TEXAS; Y$-SEG$(X$, 
K-—N:1, N). TV COM; Y$-X$ (K—Nerl : )). 
Y$-LEFT$(X$, N) ..... X$ első n karakterét emeli ki (kiv.: TV COM; Y$-X$(N). 
Y-LEN(X$)......... X$ karaktereit számlálja meg. 
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7. Memória függvények 


Y-FRE(D) .......... a BASIC terület szabad kapacitását méri (kiv.: ABC, TEXAS; 
Y-SIZE, TV COM; Y-FREE). 

Y-PEEK(R) .......... a memória R című rekeszének a tartalmát adja. 

Y-POKER,X......... x számot (x£255) helyezi el az R című rekeszbe. 


CEOSE : s sezzá va e ése ét lezárja a nyitott FILE-t. 

DATA szerésersző erstaha gs 61 a READ adattára. 

DELETE C1—€2 ...... törli a program C1-től C2-ig címzett utasításait (kiv.: C—64, ABO). 
DIM :.ozs áá ge érés tömbök méretét közli a géppel. 

END 1 2s sszem árérés e leállítja a program futását, törli változóit a munkaterületen és le- 


zárja a nyitott FILE-okat. 
FOR—-TO-—-STEP-NEXT utasítások ismételt végrehajtását szervezi. 


GOSUB C-RETURN . .. vezérlést a C címkével kezdődő szubrutinra adja át majd visszatér 
a következő címkére. 

GOTOC............. a vezérlést a C címkére adja. 

IF Y THEN-ELSE . .. . . a vezérlést az Y logikai függvény felvett értéke alapján adja át. 

INPUT ...asevvs eza Adatot hív be a billentyűzetről, illetve háttér tárolóról. 

EE stebeőtté iz etárő léért változókhoz értéket rendel. 

LIST C1—C2 ......... programot listáz ki képernyőre, illetve printerre (kiv.: PRIMO, 
TV COM, VT—16; LLIST C1—C2). 

LOAD szeg ee eges ésiyű programot tölt be háttér tárolóból (kiv.: HTZ ; CLOAD). 

NEW (es seg a e ímenéz tó törli a BASIC terület tartalmát. 

ON V GOSUB C1-RETURN . . . . . . . . V:1,2, ... felvett értéke szerint átadja a vezérlést a 
C1, C2, ... címkével induló szubrutinra, majd visszatér. 

ON V GOTO CI, ...... V:1, 2, ... felvett értéke szerint C1, C2, ... címkére adja a vezérlést. 

OPEN zsé e see z été FILE-t, illetve csatornát nyit meg háttértárolón. 

PRINT s sea ászazaresk a adatokat és függvényeket jelenít meg, illetve rögzít háttér tá- 
rolókon. 

PRINT USING" " ..... adatokat előírt (" ") formátumban jelenít meg, illetve rögzít. 
(Kiv.: C—64, ABO). 

RANDOMIZE ........ a véletlen szám generátort indulás előtt pozícionálja (kiv.: C—64). 

REM................ megjegyzések tára. A program futásban nem vesz tészt. 

READ 2 szo esen sezsnss változókat azonosít DATA-beli adatokkal. 

RESTOREC ........,. C alatti DATA adattár ismételt felhasználása READ-hez. 

RÚNG saszjázéezssel program végrehajtását indítja a C címkétől, illetve C hiányában az 
első utasítással kedzve. 

SAN Ev zéz sé a ér özáeűi programot rögzít háttér tárolóra (kiv. : HTZ; CSAVE). 

SEÓP ezé edés megszakítja a program futását. 


UTASITÁSKÉSZLET 


9. Egyező funkciót betöltő utasítások 


a) Program címkéző és átcímkéző parancsok. 


CSŐL ezröztné si kie el Eg TES k Ezer sg edz k EDS — 

ADC rő réz gáézzüeka KPA pga kr ábáegz ő REN €, D 

TÉLI oak egg át AUTO CI, Doszzéettk REC,D 

TEXAS s szzetera esésű NUM CI,D ......... RESEOUENCE C, D 
PRIMO sz svszrssngyű AUTOCI,D ........ — 

EVIOOME s szasa gés sen E gént köntokan érj ta té GZ E 

VWVŰ sed agt d dga atás AUTO CI. TD 5 RENUM €, D 


— Amelyik gépnél valamelyik utasítás hiányzik, címkéről-címkére, kézzel kell helyettesí- 
tenünk, beleértve a vezérlés átadásokban szereplő címkéket is. 


b) Kurzor pozicionáló parancsok. 


CZGA alas edett ervek kéttáés TAMD) asse re rétáerétéód Ezt tán SZÉ d TÖTÉk SONT SPC(T) 

ABC sznezésén emi gés TABOD) s ozemeske det CUR(I,J) .......... SPACE X(1) 
MEL százig ásnak 6 DANGÓ eú aze nvésamet E SL ege rszs tl ségés — 

TEXAS sosem er sgjázs TABÁN es szana géslk apó DISPLAY ATED sre — 

PRIMO vsz vésűess ő TAMÓD a sas ga será aka ES Pe Ae kt ÉLÉNK ÉR SPACES$ (T) 
TVCOM .; ss atéár ődést éő TATBCI) essártátsórák a áraléá áési PRINT AVI.I assa es STRINGKT, " 
VI-IS ezaz ertse ia TAB(D) sa tsszeúesés LOCATEI,J ........ SPACE$ (T) 


— A számítógépek alkalmazási lehetősége a háttér tárolók bekapcsolásával kitágul. A mág- 
neses tárolók (kazetta, lemez, merev lemez) program és adat FILE-okat rögzíthetnek, ezeket 
megőrzik és a gép számára ismételten hozzáférhetővé teszik. A nyomtató passzívan őrzi meg 
ugyanazokat. Programok rögzítése és betöltése a SAVE és LOAD kulcsszavakra épül, amit 
géptípuson és eszközként eltérő módon egészítenek ki. A rögzített programot ellenőrizhetjük 
a gépben és a tárolón fekvő jelek egybevetésével. Kulcsszóként a VERIFY, CHECK, TEST stb. 
használatosak. 

— Az adat FILE-ok rögzítése és betöltése hármas tagozódású utasítás rendszerrel oldható 
meg: 

a FILE megnyitása a tárolón, 

a FILE rögzítése (betöltése) tárolóba (ból), 

a FILE lezárása a tárolón. 
Az utasítások rendre az OPEN, a PRINT:3t (INPUT3) és CLOSE kulcsszavakra támaszkodnak, 
bár az OPEN számos esetben PREPARE, CREATE szavakkal helyettesítődik. Relatív FILE-ok 
esetén a rögzítést (betöltést)a REKORD helyének a meghatározása és a rögzítést (betöltést) 
közvetítő puffer tároló aktivizálása készíti elő. 
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c) Kazettás egység. Program rögzítés, ellenőrzés, betöltés. 


C-—64 SAVE "NEV", I,I VERIFY "NEV", 1 LOAD "NEV", I, C 
ABC SAVECAS: NEV — LOADCAS : NEV 
HTZ CSAVEf —1, "NEV" CLOAD? "NEV" CLOADHR —1, "NEV" 
TEXAS  SAVECSI CHECK TAPE OLD CSI 

PRIMO SAVE "NEV?" TEST "NEV" LOAD "NEV" 


TV COM SAVEHS: "NEV" VERIFYÉS: "NEV" LOADÁS: "NEV" 
VT—-16t SAVEPTC:NEV" — LOAD 7C : NEV" 
d) Adat FILE rögzítés kazettára. 


C-—64 OPENx, 1, 2, "NEV" : PRINTfa, VALTOZOK : CLOSEx 
ABC PREPARE "NEV" AS FILEx : PRINT$ax, VALTOZOK : CLOSEx 


HTZ PRINT$—1, "NEV"? : PRINT$-—1, VALTOZOK : PRINTf$—I, VEGJEL 
TEXAS —  OPENHa : "CSI", FIXED, OUTPUT :: PRINTfa, VALTOZOK :: CLOSEftta 


PRIMO CREATE "NEV" : PRINT$VALTOZOK : CLOSE 


TVCOM OPEN OUTPUT "NEV"? : PRINT£S5 : VALTOZOK : CLOSE OUTPUT 


VT-16 OPEN "70", fa, "NEV" : PRINTáta, VALTOZOK : CLOSEtta 


e) Adat FILE betöltés kazettáról. 


C-—64 OPENx, 1, 0, "NEV" : INPUTsja, VALTOZOK : CLOSEx 

ABC OPEN "NEV" AS FILEx : INPUT$a, VALTOZOK : CLOSEx 

HTZ INPUT$ —1, NEV$ : INPUTS—1, VALTOZOK : INPUTS: —1, VEGJEL 
TEXAS — OPENfta : "CSI" FIXED, INPUT :: INPUTáHa, VALTOZOK :: CLOSEtta 
PRIMO OPEN "NEV" : INPUT$VALTOZOK : CLOSE 

TVCOM OPEN INPUT "NEV" : INPUT$HS : VALTOZOK : CLOSE INPUT 
VT—-16 OPEN "II sa, "NEV? : INPUTÍta, VALTOZOK : CLOSEfta 


1; CAS; —1; CSI; 5 kazettás egység azonosítók; a - FILE-szám; 0 output. ?" WFLOPPY-ra vonatkoz ó utasítások. 
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f) FLOPPY DISK. Program rögzítés, ellenőrzés és betöltés. 


C--64 SAVE "NEV", 8 VERIFY "NEV", 8 LOAD "NEV", 8 

ABC ez ii ti 

HTZ — — — 

TEXAS "SAVE "DSKI.NEV" — OLD "DSKI. NEV" 
SAVE "DSKI. NEV", MERGE "DSKI. NEV" 
MERGE 

PRIMO  " CMDSAVE "NEV" CMDTEST "NEV" CMD LOAD "NEV" 

TVCOM SAVEtt6: "NEV" VERIFY3t6 : "NEV" LOADt6 : "NEV" 

VT—-16 SAVE "A : NEV" — LOAD "A : NEV" 


SAVE "B: NEV", A, P 


g) Adat FILE szekvenciális rögzítése DISK-en. 


C-—64 OPENg, 8, k, "d : NEV, S, W" : PRINT3ja, VALTOZOK : CLOSEx 

ABC — 

HTZ — 

TEXAS —  OPENfta:" DSK1.NEV", SEOUENTIAL, OUTPUT, VARIABLE N 
PRINTfta: VALTOZOK :: CLOSEx 

PRIMO  " CMDCREATEK, "NEV" : CMDPRINT:tk, VALTOZOK : CMDCLOSEk 

TVCOM OPEN$6:OUTPUT "NEV" : PRINT$6: VALTOZOK : CLOSEi6: OUTPUT 
OPEN 6:OUTPUT"NEV" : LLIST$6 :: CLOSEt6 : OUTPUT 

VT-16 — OPEN 70", fa, "NEV"? : WRITEfa, VALTOZOK : CLOSEtta 


h) Szekvenciális adat FILE betöltése DISK-ről. 


C-—-64 OPENx, 8, k, "§: NEV, S, R?" : INPUTita, VALTOZOK : CLOSEx 

TEXAS OPEN$a: "DSK1.NEV", SEGUENTIAL, INPUT, VARIABLEN :: INPUTiía 
VALTOZOK :: CLOSEx 

PRIMO —" CMDOPENK, "NEV" : CMDINPUT:fk, VATOZOK : CMDCLOSEk 

TVCOM OPEN$t6 : INPUT "NEV"? : INPUT3t6 : VALTOZOK : CLOSEztt6 : INPUT 
OPEN$t6 : INPUT "NEV" : POKE2818,6 : CLOSEitt6 : INPUT 

VT-16 OPEN "TD, a, "NEV? : INPUT$a, VALTOZOK : CLOSEx 


6; 8; DSKI; A; B FLOPPY azonosítók; a — FILE-szám; k -—CSATORNA-SZÁM; S ZSEGUENTIALIS; W - WRITE; 
N -REKORD-hossz; 0 —OUTPUT; R -READ; I -INPUT. 
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i) Relatív FILE rögzítése DISK-en. 


€C—64 


TV COM 
VT-—16 


OPEN 15, 8, 15 : OPENcr, 8, k, "NEV, L," "CHR$XN) : H-INT (1/256) : L-I—H"256 
: PRINT315, "P" 5 CHR$(k) " CHR$IL) ( CHR$K(H)  CHRXKI) : PRINTita, 
VALTOZOK : CLOSExa : CLOSEIS 


OPENita : "DSK1. NEV", RELATIVE NI, FIXED N : : PRINT ia, REC I : 
VALTOZOK :: CLOSEx 

CMDDEEK, "NEV, L," 1 CHRÉN) : H-INT (1/256) : L-I—H"256 : CMDPRINT "P" 
t CHR$(k) ( CHRK(L) t CHR$(H) ( CHRÉ(1) : CMDPRINT:tk, VALTOZOK : 
CMDCLOSEk 

OPEN "R", ia, "NEV", N : FIELDáta, N AS V$ : LSET V$-MKIXK(V) : PUTita, I: 
CLOSEHta 


j) Relatív FILE betöltése DISK-ről. 


C—64 


TEXAS 


PRIMO 


VT—16 


OPENIS, 8, 15 : OPENcx, 8, k, "NEV" : H-INT(I1/256) : L-I—Ht256 : PRINT31 5, 
"P" ( CHR$(k) " CHR$(L) : CHRK(H) ( CHR$(1) : INPUTitas, A$ : PRINTA$ : 
CLOSEx : CLOSE1S5 

OPENita : "DSK1. NEV", RELATIVE NI, FIXEDN : : INPUT3ta, REC I : A$ :: 
PRINT A$ : CLOSEa 

CMDDEEK, "NEV" : HEINT (1/256) : L-—H"256 : CMDPRINT "P" : CHR$(k) 1 
CHRXIL) :(CHR$KH) : CHRX1) : CMDINPUT:ik, A$ : PRINT A$ : CMDCLOSE k 
OPEN "R", áta, "NEV", N.: FIELDita, N AS V$ : GETita, I : PRINT A$ : A9-CVI 
(A$). : PRINT AZ : CLOSEtta 


k) Program nyomtatása printer—en. 


C-—64 
ABC 
HTZ 
TEXAS 


OEPNA,4 : CMDa: : LIST : PRINTifo: : CLOSEa 


a Z FILE -szám; k — csatorna-szám; R, L — a relatív jelteg mutatója; N — REKORD-hossz; NI — FILE-hossz; 
DSK1 — FLOPPY azonosító. 
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1) Adat FILE nyomtatása printer-en. 


C—64 OPENocs, 4 : PRINT$tx, VALTOZOK : CLOSEa 
PRIMO LPRINT VALTOZOK 
TV.COM PRINT$4 : VALTOZOK 
VT—16 LPRINT VALTOZOK 
OPEN "0", st4, "LPT1:" : PRINT$t 4, VALTOZOK : CLOSE44 


a ZFILE-szám; 4 -PRINTER azonosító szám; 0 OUTPUT; LPTI —a PRINTER FILE neve. 
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10. Géptípusra jellemző utasítások 


a) C—64. 
BREAK sos sssséggels zá sesécá se gzése megszakítja a program futását. 
GONT 2 o eteiszda d béres été oés feloldja a STOP utasítást. 
DEF FNYI(X) ............ YI (X) függvény bevezetése. 
GETAS szosggmztzszezámeű egy karakter hívása klaviatúráról. 
GETHG,A$ .............. FILE betöltése karakterenként. 
LOAD7$9,8............. a DISK nyilvántartás betöltése. 
OPEN15,8,15,"NÓ:NEVÓ17 .  DISK-et formalizálja. 
2 03 ezogepas FLOPPY alapállása. 
, SÓ:NEV" .... a "NEV" FILE-t törli a DISK-ről. 
, SÓ... törli a DISK-et. 
VŐ szszlárénátántó látszólag foglalt BLOCK-ok szabaddá tétele. 
b) ABC 
CLEAR : 2 eső zá ák side ész törli a változókat és lezárja a FILE-okat. 
CLR.DOT(X, Y) syeszéseaér törli az X, Y pontot az ernyőn. 
DOTCS, YT) vesz áádalk zt édármág st logikai függvény. —1 ha az X, Y pont világít és Ó, ha nem. 
EDÜGUzé zészésréátirzáé EzÉőtséit C címkés: utasítás kiíratása javítás céljából. 
GET AGÓ aa tágreöátésásénéstálávást tását tó egy karakter hívása klaviatúráról. 
INPÜTLINE s egys maszegűteéres STRING INPUT. 
LOGIÓ(X) ............... X tizesalapú logaritmusa. 
MERGE "NEV" ........... program betöltés és egyesítés a gépben lévő programmal. 
RUN7NEV?".............. program betöltés kazettáról futtatással egybekötve. 
SET DOT YI : ész ozesweg kigyújtka képernyőn az X, Y pontot. 
c) HTZ 
CLEAR N s eses ks és éges én N rekeszt lefoglal STRING-EK részére. 
CCS szén kédlésdráta zSz rant törli a képernyőt. 
CON sszzsemézes sg eretet feloldja a STOP utasítást. 
DEF DBLAZZ ........... dupla pontos változókat definiál. 
DEBINT A-Z uezetnateézző egészértékű változókat definiál. 
DEF SNG A—kZ. . . ééső ea se egyszeresen pontos változókat definiál. 
DEF STR ASZ ae ress évgáta térés STRING változókat definiál. 
EDTTC : sa es enzndágás éa es C című utasítás képernyőre íratása javítás céljából. 
ERŰ sméseegadéteűrűüráesztkt hibás utasítás címkéjét azonosítja. 
ERIK ő sseeé érő se énő dé iz ép áá láta gde a hiba jellegére utaló kódot ad. 
INKEY$................. klaviatúráról fogad 1 karaktert. 
ON ERROR GOTO C . ...... hibacsapdát definiál C alatt. 
POINT (X.Y) c us zegzűneis ét logikai függvény a grafikában: —1, ha ég és Ó, ha nem ég az 


X, Y koordinátákhoz tartozó pont. 
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KESUMEC  ezzés ez álga vő hibacsapdából kilépés C-re. 

RESET (XA) sepite zés kioltja az X, Y koordinátákhoz tartozó pontot. 

SZO LEVŰ sát dkg lkeke évébe betölt, illetve elindít gépi kódban írt programot. 

SEA Zs ÉJ ze ÖV zés A det nb Ze St kigyújtja az X, Y koordinátákkal adott pontot a képernyőn. 

TROBB öréreüdz ése ésa még a kikapcsolja az utasítások összefüggés viszgálatát. 

FERON: sás esmtmozáádát ze ő § bekapcsolja az utasítások összefüggés viszgálatát. 

VARPTRAZO oz ege zésre ret X változót tároló rekesz címét szolgáltatja. 

d) TEXAS 

BIRESÁK Ú zéá tk epe késúb tú je éa C címkénél megszakítja a program futását. 

CALT GLOBAL sz sérts rvététs ák tát dt 4 törli a képernyőt. 

CALL COLOR (JIK, JCK, 

HERO ax ka ze vez ea kaltláré karakter és háttér színezése JIK-1—1]4, JCK-1—16, HCK- 
1—16. 

CALL CHAR (IK, J$6) ...... a definiált J$ karakter JK kóddal való megidézése. 

CALLERR(W,X, Y, 2) .... W hibakód, X hibatípus, Y erősség, Z utasítás címke azono- 
sítása. 

CALL GCBARC(I, I. XI sees a képernyő I, J helyén talált karakter kódját adja meg. 


CALL HCHAR (1, J, JK, R) ..  R-szer jeleníti meg a JK kódú karaktert az [-edik sorban, 
a J-edik pozíción kezdve. I-1—24. J-1—32. 

CALL SGREEBN (EP) seéé zés a képernyő keretet színezi. CP-1—16. 

CALL VCHAR (I, J, JK, R) . . R-szer jeleníti meg a JK kódú karaktert a J-edik oszlopban, 
az I-edik pozíción kezdve. 


CONTINUE s sss ús e20 szg éá feloldja a BREAK utasítást. 

DBE A(RC) ssezté s áe ég üzetse sé ő A(X) függvény definiálása. 

DELETE "DSKI. NEV" .... FILE törlése DISK-ről. 

DISPLAY AT d, J) : 

ÜSINES "eze gyk Kaegkate hg a képernyő I, J pozíciójába formalizált adatot ír. 

EDET GC a án sét tévét d rá érráp és val út éép is été bi C című utasítás képernyőre íratása javítás céljából. 

ERDEK u sz ee ate ene no a file végét jelzi. 

MAXC(A, B) 12 vess vin ae kiválasztja a nagyobb számot. 

MERGE "DSK1. NEV"? ..... betölti lemezről a "NEV" programot és egyesíti a gépben 
álló programmal. 

ON ERROR C ; s aváss ááá sa ú hibacsapdát definiál C alatt. 

OPTION BASE ! .......... a tömbindex 1-el kezdődik. 

RUN "DSKI. NEV?" ........ program betöltés DISK-ről futással egybekötve. 


SAVE "DSKI1, NEV", MERGE MERGE. utasítás által betölthető programot rögzít DISK-en. 
SAVE "DSKI. NEV", 


PROTECTFBED szazésázasgát képernyőre nem írható program. 
ITRAGB. a ez zszgügzétg iz énee értő bekapcsolja az utasítások összefüggés vizsgálatát. 
UNERACE : rozé sét ess tápk kikapcsolja a TRACE utasítást. 
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e) PRIMO 

CLEARN ső sezw erőset kb dé N rekeszt lefoglal stringek számára. 

GES Ózd zt és ts zézte li áá SESŐRTÉÉBÓ törli a képernyőt. 

CMD NEW "NEV, 017... ... DISK-et formalizálja. 

CMD ERROR EN, EM$, 

ETSES Set kez eze Segikés hiba azonosítás DISK műveletek esetén. 

CMD KILL "NEV" ........ "NEV" FILE-t törli a DISK-ről. 

CMD LOAD 7867 .......... DISK nyilvántartás betöltése. 

GMD.SET E vs ed ag as fé FLOPPY azonosítási számát módosítja E-re (E-9—15). 

DEF DBL A—kz ........... dupla pontos változókat definiál. 

DEF ÍNTA—Z s súes ség ák ő eégszértékű változókat definiál. 

DEESNGA—Z ainak egyszeresen pontos változókat definiál. 

DEFSTRAZWZ ............ STRING változókat definiál. 

EDBEE e vzesets éke bte ég belét C című utasítás képernyőre íratása javítás céljából. 

EOFÜTKY ús ésslá er ár zés lb dsg GE he k csatornán betöltött FILE vége. 

INKEVS 2 sárv térő a ig das dagi té B klaviatúráról fogad 1 karaktert. 

ON ERROR GOTO C . ...... hibacsapdát definiál C alatt. 

RESEVEX ÉL en sás e kelétette kioltja az X, Y koordinátákhoz tartozó pontot. X-1—255, 
Y-191—1. 

RESUME C vga setegéesss hibacsapdából kilépés C-re. 

SET (EX Dséze ára kes kissé ő kigyújtja az X, Y koordinátákkal adott pontot a képernyőn. 

EROBB " s uár étős de d és ád örérén tert kikapcsolja az utasítások összefüggés vizsgálatát. 

TRON ezsprőrenmestaskia bekapcsolja az utasítások összefüggés vizsgálatát. 

VARPTRAX) s s ús sé tevése ueter elt X változót tároló rekesz címét adja. 

VARPTR(X$)............ X$ változót tároló rekesz címét adja. 

f) TV COMPUTER. 

GES rsáző ése eü e eerak E ölegyééséná tél ő törli a képernyőt. 

CONTINÚE 4 ssée és k egés feloldja a STOP utasítást. 

DEB AGA) vala eb zni A A(X) függvény definiálása. 

GETAS vesse és semés egy karakter hívása klaviatúráról. 

GRAPHICS 2. s sza sé a egés eték szin:2, 24"64-es képernyő, 240"512 auto karakter. 

GRAPHICS A. 2 real ete a ésén szin:4, 24t32-es képernyő, 24Ó"256 auto karakter. 

GRAPHICS 16 ............ szin:16, 24"16-os képernyő, 240"128 auto karakter. 

INKES B des ér é10-ééyé té enie e klaviatúráról fogad 1 karaktert. 

PEGOTXIS TÉL 4 vésd vész veötéé be XI, Y1 koordinatával r. pont kigyújtása. 

PLOTXI, v15X2 Y2 a dada pontok közötti szakasz kigyújtása. 

SET CHARACTER K, El, 

BZ se NŐ ező ásatag zés Bla fe tervezett karakterek megjelenítése. 

SET INK S(CK) ........... karakter színezése. CK-Ú),...,15 színkód. S(CK)-1, 2; 1, 2, 3, 
4; 1, 2,..., 16 a kiválasztott színek sorszáma. 

SET. MODE Ms ő szét gotta keresztező vonalak eredő színe. V-1, 2, 3. 

SET PAPER S(CK) . . ....... a képernyő színezése. 
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SET PALETTE CK, CK 
SET PALETTE CK, CK, CK, 

SETSTYLE VK 
SET BORDER CK 


TRACE OFF 


CHAIN "A : NEV", C, ALL, 
DELETE C1—C2 


COLOR CK, CK 
COMMON VALTOZOK 


DEF FN A(X) 

DEF DBL A—Z 
DEF INT A—Z 
DEF SNG A—Z 
DEF STR A—Z 


ERASE A(N) 


LINE(XI1, Y1) — (X2, Y2) ... 
LOAD "A : NEV", 
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színek kiválasztása GRAPHICS 2-höz. 


színes kiválasztása GRAPHICS4-hez. 

vonaltípus kiválasztása PLOT-hoz. VK-1—14. 
képernyő keret színezése CK-Ó,..., 15. 
bekapcsolja az utasítások összefüggés vizsgálatát. 
kikapcsolja az utasítások összefüggés vizsgálatát. 


X-et dupla pontosságú számmá konvertálja. 


"NEV" program betöltése futó program végén, a C címkével 
folytatódik a "NEV" megoldása, átvéve az első program összes 
változója értékeit. A "NEV" program egy részét törölhetjük 
is. 

X-et egészértékűvé konvertálja. 

törli a változók értékét a memóriában. 

képernyőt törli. 

színezés CK-), 7, 8, 15. 

a megadott változók értékeivel számolhat a CHAIN "NEV" -je. 
feloldja a STOP utasítást. 

X-et egyszeres pontosságú számmá konvertálja. 

2, 4, 8 BYTE-os STRING számok numerikus formára alakí- 
tása. 

azonosítja a dátumot. 

A(X) függvény definiálása. 

dupla pontos változókat definiál. 

egészértékű változókat deiniál. 

egyszeresen pontos változókat definiál. 

STRING változókat definiál. 

C című utasítás képernyőre írása javítás céljából. 

—l1, ha vége van az a számú FILE betöltésének. 

A(N) tömb törlése program futása közben, ha már felesleges. 
hibakód és címke azonosítók. 

DISK nyilvántartás betöltése. 

számot 16-os rendszerben fejez ki. 

klaviatúráról fogad 1 karaktert. 

FI, ... FIÓ billentyűk értékét megjeleníti, törli, listázza. 
FN billentyű értékét A$-re változtatja. 

FILE törlése DISK-ről az A FLOPPY-val. 

szakasz rajzolás képernyőn. 

betölti DISK-ről a megjelölt programot és futtatni kezdi. 
az a számú FILE-ben foglalt BYTE-ok számát méri. 
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MERGE "B :NEV" ........ 


MKDS(A$), MKIS$ (AZ), 


MESS(AD a veréekik énssha 


NAME "A : NEV. BAS" AS 


SNÉVILBAS " sként momászóú 


ON KEY (N) GOSUB C ..... 
OPTION BASEL . . . . ....... 
POSÓL ya ink ss sellak JA 
PSET(X,Y),Ll ............ 
PRESETEK; VO Do zsses én bái 
RESUMEC .............. 


SWAP As Bos ss nezel érésüki 
SES EE . úg éb a melt dor al alaeé áj 
TIMES a zaza s tó ss úr asked 


VARPTROCI szdszes záró 


VT BASIC A : PROGRNEV 
SZ B:ADAT NEV 2 LPTI 


VEZVSÉSA BLA psalér kb beé 


WHILE—WEND. őszes esése 
WIDTH LPTI:VN........ 
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betölti lemezről a "NEV" programot és egyesíti a gépben 
lévő programmal. 


számok STRING formáját adják. 


NEV FILE új nevet kap : NEVI. 

hibacsapdát definiál C alatt. 

FN gomb leütésekor a vezérlés C-re adódik. 

a tömbindex 1-el kezdődik. 

a KURZOR oszlop pozícióját adja. 

kigyújtja az X, Y pontot a képernyőn X-d—639, Y-)—299. 
X, Y pont kioltása a képernyőn. 

hibacsapdából kilépés C-re. 

titkosított program rögzítés DISK-en. 

átállás grafikus módra. 300"640 pont a képernyőn. 

a két változó értékét felcseréli. 

kilépés a BASIC-ból. Program törlődik. File-ok lezáródnak. 
a pontos időt azonosítja. 

másodpercben adja meg a gép bekapcsolása óta eltelt időt. 
kikapcsolja az utasítások összefüggés vizsgálatát. 

bekapcsolja az utasítások összefüggés vizsgálatát. 

X változót tároló rekesz címét szolgálja. 


a BASIC beolvasását egy program követi az A FLOPPY-ból. 
A program elindul. Adat igényét INPUT útjána (B FLOPPY- 
ban levő lemez ADATNEV FILE-ből veszi. A program OUT- 
PUT-ját a 2PRINTER-re viszi ki. A futás előtt 15-re terjeszti 
ki a megnyitható FILE-ok számát és 512-re emeli a direkt 
puffer méretét. 

feltételes ciklus szervező pár. 

sorhosszt állítja be printer-en. 


3/1. SZÁMU MELLÉKLET 


COMMODORE—64 hibajegyzék 


A hiba jelzése: A hiba oka: 

BAPD:IDASTSA sz irták ént eg át köl ÁSÓ e hag AN dáetét változó és adat összeférhetetlen. 

BADSUÚBSECRTPA " sét sót tévé ége afelár a sét véb dőlés ágra út CÉ hibás index. 

CANTGONTINÚE s esésöve ég sttrá ES ee STOP után módosított a programon (2xRUN). 

DEVICE NOT PRESENE 5 s éa o sé szleng 8 a hivatkozott peréfiria nem él. 

DIVISION BY. ZERO szerzem zeti e áá ek k séés az osztó nulla. 

EXTRA IGNORED ő sss zedsáa pár goz bé ete túlteljesített INPUT. 

FILE NOT EOUOND sí atis ezét ős ket arte úr 4 hó adott DISK-en nemlétező FILE-ra hivatko- 
zunk. 

FILE NOT OBEN , ezzen tése edik $ (d ővérésy FILE művelet megnyítás nélkül. 

FORMULA TOO COMPLEX ............. STRING függvények egymásba skatulyázása 
sokszoros. 

ILLEGÁAL DÍREGT neue éts sets été e fésájó a parancsként nem működő utasítás. 

ILLEGAL OUANTITY szzetee kő ége ás ellentmondó értékadás, vagy nem értelmezhető 
művelet. 

NEXI WITROUT FOR. s ; szssészeg ő éa Vg ége FOR hiányzik a FOR-NEXT párból. 

NOTINPUT ELÉBB sáv esázmesi áéag ölése alle ő FILE utasítások összeférhetetlenek. 

OUT OF DATA. see é szaz ess ed zab éved fedezetlen adatigény READ esetén. 

OUT ŐÖŐEBMEMORY " s uvéséag ama ka ar eh sé gréssó a memória potenciálisan foglalt. 

OVERETOW rre át stéetástg dát, 5 46-ák aÓN a Sági kába váj 5 túlméretezett adat. 

REDIM DARRAÁV ag tkoctet ae ká ésak Fát tömb ismételt  dimenzionálása törlés nélkül. 

REDŐ FROM:.STARTC sség d asemkale d wake típusidegen adat. 

RETURN WITHOUT GOSUB ............ GOSUB hiányzik a GOSUB-RETURN . pár- 
ból. 

SERING TOO0OLONG 5: sas seas ab dat ap áraára túlméretezett STRING. 

SUNLAXRERROR szem nz zt éjé és 4 var ks helyesírási hiba. 

TYBE MISMATGCEL sség áreln ő d ástó táráő üt ő zöék lelé függvényidegen argumentum vagy típusidegen 
azonosítás. 

UNDEF"D STATEMENT ................ vezérlésátadás nemlétező címre vagy  para- 
méterrel. 


További hibaüzenetek vonatkoznak a FLOPPY egységre, amik a hiba kódját (0—80), 
illetve nevét tartalmazzák. Ezek az irodalomjegyzék [3]-ban találhatók. 
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3/2. SZÁMU MELLÉKLET 


ABC-—80 hibajegyzék 


A hiba kódja: A hiba oka: 
Úr A s E EAZE 8 ARS EG né nem megengedett indext használ. 
Tazzée ára elkel klete a E E nem következetes tömbazonosítás. 
AS a KN A EE DO ált EGT címke nélküli utasítást adott. 
SAL EE ÉE ea Ke E ÉL az 67e memória betelt, adat túlcsordult. 
area alia Gab re ÉSZ 0 É a CEE nem értelmezhető művelet. 
DeZo k lé áes tág aka és sét éa ob ill étonró nem megengedett változót, indexet stb. használ. 
Ör tds ön eze B EDEL S GOTO címkéje nemlétező utasításra vonatkozik. 
KT sz ÉN ZES TÉpéöslestt Ezt TE SÜT SE E Ar; SÉGÉT nemlétező memória címet használ. 
Ve E ROS Es Sá TÓ karakter konstans nemlétező részét pró bálja kiemelni. 
TÓ edett VEB E Nestlé túlhosszú karakter konstans. 
AV ső ds álett át ő zén át as jét 10 fa sert sgóóáb éz hiányos utasítás, nem értelmezett operáció  (gépidegen). 
IZ. és e tétek Sa ásd numerikus változóhoz STRING-et rendel. 
TSA ln S EL a e ő dán zdzezel köde operandusok és műveleti jelek párosítása hibás. 
ÜSS ect ay té sz Éld szét ep elő Bán án ató hiányzik az - jel. 
TŐ éke észbe eg dl etess (REL ALÉLT Éő ugrás sehová, cimkehiány a GOTO vagy GOSUB utasításokban. 
Vép etette ek tAZRBE E SÉT ete Eht típuskeveredés változók és adatok azonosításában, összehason- 
lításában. 
TB te érárllzztábat éb ÚN ÁS gén És zárójel hiány vagy többlet. 
Ta Et ete e Set EE GEL ég ast FILE lezárása elmaradt. 
DOVER Sz ölgyaá beee d etrön észak EN ő 120 karaktert túllépő utasítás. 
ZLSEGSEG nÁPAk éz S Edt ado szén dés téek hiányos utasítás, pontatlan hivatkozás. A keresett FILE nincs 
a kazettán. 
Eat feet il 20 kotor vész llsotgeat jé lé val 3 hin de TO hiány a FOR—NEXT utasításban. 
Log EEEN Ea EBÉT EAT NOYOÉ NEXT hiány a FOR ciklusban. 
OI sz dög eséa avar ál gét ék slezelaó bras Éeró ON GOSUB utasítás szerkezete hibás. 
Ő rés Gezat AN ÉSz té E ÉSE EE KÉSŐ É ON V GOSUB Cl, ... utasítás V-je túlmutat a C soron. 
Áá Ég LE Nő KÉJ KÉÉ a es ea FOR hiány a FOR—NEXT párban. 
ZS ná a seb abb fd úrak a Ör ag Aa sZ EL EL AÉT A FOR és NEXT indexe nem azonos. 
Oszt eat Eg TÁne Ez ree eszt GOSUB érintése nélkül RETURN-ba futó program. 
FŰZ kezét Ek az ézntsát ezt édi aDlMvagyDATAadtalehetőséget meghaladó beolvasási utasí- 
tás. 
SILAS dt har áeésór KÉR E A FILE nyitása elmaradt. 
DIÓ né ig etöleá at ete lg esés a 4 bh DE a FILE megnyitó utasítás hiányos. 
DA a lee E Eh eszes e leéla sétér tés a FILE állományán túlmutató betöltési utasítás. 
LO MLS EE YÉE E E TÉT hibás FILE. 
S gate zs krelzé sak sátrát is denát negatív számból von négyzetgyököt. 
GŐ ye eg kak káedézeze test ÉN a program címe 8 karakternél hosszabb (rögzítésnél). 
ŐS es ey szek sédéze öle ére irek tvnet br ay vá AS hiányzik a FILE megnyitásából. 


A hiányzó hibakódok vagy a teljes kiépítésű rendszerre (FLOPPY, PRINTER) vonatkoz- 
nak, vagy ritkán lépnek fel. 
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3/3. SZÁMU MELLÉKLET 


HTZ hibajegyzék 


A hiba jelzése: A hiba oka: 

BIT: zgerdzat tétősék ezta KELEle ára EVT adatkiolvasási hiba a kazettánál. 

BO. Retkseéreb lo val rk dó E nagyobb index a FOR-ban, mint a DIM-ben. 
CIN szélek ácgte edéveta a vécé goz tató END után adott CON parancs. 

JOB zet gtréteetb Éz etes KÉNE aa llsestl kétszer deklarált DIM, eltérő index. 

EG azét éle És barát 408 nem értelmezhető művelet. 

TEJ s el váese letet erk gosnái b ág a tan kek adatrögzítési hiba a kazettánál. 

TTI sv ét re ály ő gége lag téglák őt alte indirekt utasítást adtunk direktre. 

EST zt stl eaz Eg ree et túlméretezett STRING (h 2 255). 

MO eze neke ák ák ék éve E operandus hiány (pl. 5"). 

DB eler ay da eat ékkő NEXT hiányzik a FOR—NEXT párból. 

JD A as ág dka évenésátik ság ig írtál tiz 6 adathiány a READ, illetve INPUTS:f-nál. 

ÖM, ezet kget E éEg E E a memória potenciálisan betelt. 

CB, úG átása ását án ések ag e zárok betelt a STRING-ekhez rendelt standard memória. 
VE zel lle sa tdáhe été eket telerek A túlméretezett adat. 

REL EZÜC ezett et Ses ék GOSUB hiányzik a GOSUB—RETURN párból. 
SIN agg EE A ÉSE aga ását ville helyesírási hiba. 

BAT gr varta tő ő gy b dő ai dee dbééigz túlzottan összetett STRING függvény. 

TM sszege ázó sátán án üezáte összeférhetetlen adattípusok. 

UL. a etszé e e OS a 0 egye s ő vezérlésátadás nemlétező címkére. 

MÜ SZE ÉN SE ES Só AEK ET EA a nulla osztóként lép fel. 
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TEXAS hibajegyzék 


A hiba jelzése: 


BADARGUMENT a érző orát ge éldvérüté gb a úl ési 


FOR—NEXT NESTING .........0........ 
INCORRECT STATEMENT 
[/D ERROR 


LINE NOT FOUND 
MEMORY FULL 


NAME TOO LONG 
NAME CONELICT s s átadása Ket aie e ése as 
NEXT WITHOUT FOR 
NO PROGRAM PRESENT ............... 


3/4. SZAMU MELLÉKLET 


A hiba oka 


adott argumentumra a fügvény nincs értel- 
mezve. 

hibás címke (21; 532767). 

hibás index. 

értelmetlen mutatók vagy kódok használata. 
végrehajthatatlan utasítás. 

adott utasítás a programban nem szerepelhet. 
hibás vagy kevés vagy típusidegen adat. 

hibás, a FILE álltapotának ellentmondó Mű- 
velet. 

a FOR—NEXI mutatók hibásak. 

karakterhibás utasítás. 

adat vagy program-FILE bevitele, rögzítése, 
betöltése nibás. 

hibás vezérlés-átadás. 

a lefoglalt vagy a teljes BASIC területünk 
betelt. 

túl hosszú név (215 karakter). 

többértelmű azonosítás. 

FOR lemaradt a FOR—NEXT párból. 

nincs program a gép memóriájában. 

adat túlcsordulás a memóriában. 

GOSUB lemaradt a GOSUB-—-RETURN  pár- 
ból. 

összeférhetetlen típusjelzések. 

színtaktikai (helyesírási) hiba. 

hibás karakter használat. 


További hibaüzenetek találhatók az irodalomjegyzék [10]-ben. 


PRIMO hibajegyzék 


DEVICE NOT PRESENT .... 
FILE NOT FOUND 


3/5. SZÁMU MELLÉKLET 


A hiba oka: 


FOR lemaradt a FOR—NEXT párból. 

színtaktikai (helyesírási) hiba. 

GOSUB lemaradt a GOSUB-—-RETURN párból. 

kevés az adat az igényhez képest. 

adott argumentumra a függvény nincsen értelmezve. 

adat túlcsordulás a memóriában. 

BASIC területünk betelt. 

hivatkozás nemlétező címkére. 

túllépte a tömb deklarált dimenzióját. 

egy tömböt kétszer dimenzionált. 

nullával próbál osztani. 

az utasítás csak programban állhat. 

összeférhetetlen típusjelzések. 

STRING tárolónk betelt. 

túlhosszú STRING. 

túlbonyolult STRING függvény. 

ismeretlen hiba. 

FILE kezelési hiba. 

kevés az adat a FILE-ban /a FILE rögzítése nem ellenőrizhető. 
újabb csatorna nem nyitható meg (310). 

nyitott csatornát akar megnyitni. 

zárt csatornát akar használni. 

írásrafolvasásra használja az olvasásrafírásra megnyitott csator- 
nát. j 

CDOS, eszköz, lemez, dugaszolás stb. hiányzik a rendszerből. 
adott című FILE nincs a DISK-en. 
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TV—-COMPUTER hibajegyzék 


A hiba jelzése: 
BAD.:ARGUMENT 4.2 sszeg edété éa esd sze 


GANNOT CONTINUE o suztgüssjeá ége baros 
CANNOT READ . szz e eev gok a baró al át as 
LINE:MISSING: : seen goz bevne édeskés 
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3/6. SZÁMU MELLÉKLET 


A hiba oka: 


adott értékre nem értelmezhető függvény 
vagy művelet. 

rögzítési hiba kazettán vagy DISK-en. 
ellentmondó értékadás pl. DIM A(2) : PRINT 
A(3). 

STOP után módosított a programon (23RUN). 
az olvasott változótól eltérő típusú adat. 
vezérlésátadás nemlétező címre vagy  para- 
méterrel. 

fedezetlen adat igény. 

hiányzik a NEXT FOR párja. 

hiányzik a RETURN GOSUB párja. 

a belső memória megtelt. Pl. sok, vagy magas 
dimenziójú tömb. 

helyesírási hiba a kijelzett, vagy a kapcsolódó 
utasításban. 

túlméretezett adat. 

a perifériák rendellenessége (x kódok a [13] 
gépkönyvben). 

függvényidegen argumentum vagy típusidegen 
azonosítás. 

hibás változó használat pl. DIM A(20), A1(20), 
A$(20), vagy törlés nélkül ismételt dimenzio- 
nálás. 


VT-16 hibajegyzék 


A hiba jelzése: 


BAD FILE MODE 
BAD FILE NAME 
BAD FILE NUMBE 


DISK NOT READY 


JÉ tib kam ágáe le gl ná ösjez sé 


DISK WRITE PROTECT . aes ege d aka ési 
DIVISION BY ZERO . .2 ss ég see ggal biale a we 
DUPLICATE DEFINITION .. 20. s ss esésa 


FILE ALREADY O 
FILE NOT FOUND 


ILLEGAL DIRECT 
INPUT PAST END 
INCORRECT DOS 


BEN sas szere etső ten bétirősa 


VERSION . . .......... 


LINE BUFFER OVERELOW . . .. . . , ...... 


MISSING OPERAN 
OVERELOW .... 
OUT OF DATA .. 


RETURN WITHOU 
SYNTAX ERROR 


) B I ERESÉSÉE ERRE NEK ESA SEB R ÉREK CK 


TT GOSUB: zírszvágzaléryztzba 


SUBSCRIPT OUT OF RANGE ........... 


TYPE MISMATCH 


3/7. SZÁMU MELLÉKLET 


A hiba oka: 


FILE utasítások összeférhetetlenek. 

FILE művelet hibás névadással. 

a megengedettnél több FILE-t nyit meg, vagy 
számát elírja. 

STOP után módosított a programon (3RUN). 
sikertelen periféria művelet. 

a hivatkozott periféria nem él. 

a DISK betelt. 

a DISK-et a FLOPPY nem érzékeli. 

védett lemezre akartunk rögzíteni. 

az osztó nulla. 

törlés nélkül ismételt dimenzionálás. 

nyitott FILE megnyitása. 

adott DISK-en nemlétező FILE-ra hivatko- 
zunk. 

a direkt FILE utasításai összeférhetetlenek 
(rekord-hossz). 

A NEXT hiányzik a FOR-NEXT párból. 
ellentmondó értékadás vagy nem értelmezhető 
művelet. 

parancsként nem működő utasítás. 

fedezetlen adatigény egy FILE-val szemben. 
idegen parancs vagy utasítás. 

túlméretezett utasítás vagy sorozat egy cím- 
ben. 

adathiányos művelet. 

túlméretezett adat. 

fedezetlen adatigény READ esetén. 

a memória potenciálisan foglalt (betelt). 
hibásan fekszik vagy nincs papír a PRINTER- 
ben. 

GOSUB hiányzik a GOSUB—RETURN párból. 
helyesírási hiba a kijelzett vagy kapcsolódó 
utasításokban. 

túlméretezett STRING. 

STRING függvények egymásba skatulyázása 
sokszoros. 

ellentmondó értékadás tömbök esetén. 
függvényidegen ARGUMENTUM vagy típus- 
idegen azonosítás. 
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TOO 


VT-—-16 HIBAJEGYZÉK 


A hiba jelzése: 
TOO MANY FILES § asse ze ese ssmeaee es 


UNDEFINED LINE NUMBER ........... 


WHILE WITHOUT WEND ............... 
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A hiba oka: 


a FLOPPY nem tud újabb FILE-t feljegyez- 
ni adott DISK-re, mert telített, illetve a FILE 
szabálytalan. 

vezérlésadás nemlétező címre vagy  para- 
méterrel. 

a WEND hiányzik a WHILE—WEND párból. 


4. SZÁMU MELLÉKLET 


GRAFIKAI ÚTMUTATÓ 


A személyi számítógépek alapállapotban karakter méretű jeleket vihetnek képernyőre. 
A képernyő felbontása, (sorfoszlop) az alábbi: 


C—64 ABC HTZ TEXAS PRIMO TV COM VT-16 
25"40 24"40 16-64 24"32 16"42 24"32 25"80 
24"16 
24"64 


A karakterek mikro karakterekre bonthatók. A felbontás vagy külön utasítással, vagy az alkal- 
mazási utasításokba beépítve oldható meg. A képernyő és karakterek felbontása (mikro sor 
mikro oszlop az alábbi: 


C-—64 ABC HTZ TEXAS PRIMO TC COM VT-16 
200"320 72"80 48"128 192"256 192256  960r1024  300"640 új; 
8t8 312 352 878 — 40"32 12"8 
40764 
40"16 


A mikro karakteres felbontást ábrák, grafikonok és képek megjelenítése esetén alkalmazzuk. 
A rajztechnikai utasítások kódokkal (képernyő, szín, karakter stb. kódok) dolgoznak. A kódok 
2-es (BINÁRIS), 10-es (DECIMÁLIS) és 16-os (HEXADECIMÁLIS) rendszerben kerülnek 
kifejezésre. Ez utóbbit a memória rekeszcímek megadására is gyakran alkalmazzák. 

Egész számokat 16-os rendszerbe egy osztás sorozat maradékai visznek át. 

Pl. 38. 38 :16-2:16-0 
maradék: 6 2 ; 
Igy 38 - 26, mert 2716 4 6 - 38. A HEXADECIMÁLIS rendszer 16 számjeggyel dolgozik: 
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F, ahol A-10, B-11, C-12,D-13, E- 14, F- 15. Pél- 
dául az 5F3B szám az 51613 15"161243 "161 1-5 11-nek felel meg tizes rendszerben. 

A rajztechnikai eljárásokat a grafika szó foglalja egybe. Igy kétféle grafikáról beszélhetünk, 
úgymint karakter grafika és mikro karakter grafika. Mindkettőhöz járulhat fekete-fehér, vagy 
színes technika. Ez utóbbi a számítógép és képernyő közös adottsága. . 

A karakter grafikát a gép alapállása esetén alkalmazhatjuk. A rajz készítés a kurzor pozici- 
onálásából, a megfelelő grafikai karakter megjelenítéséből, a képernyő keret és lap, valamint 
a karakter jel és háttere színezéséből áll. 

A mikro karakter grafika vagy közvetlenül, vagy a karakterek közvetítésével érvényesül. 
A bonyolultabb mikro grafikát egyes gépek esetében összefoglaljuk, illetve hivatkozunk ko- 
rábbi ismertetésükre. 
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GRAFIKAI ÜTMUTATÓ 


ABC-—80 grafika 


A képernyő normál (24x40) és grafikus (72x80) üzemmódban dolgozhat. A grafikus 
sorok és oszlopok indexelése nullával kezdődik. A grafikus üzemmód nem az egész képernyőre, 
hanem a deklarált karakterpozíciótól jobbra fekvő karakter sorrszéle áll fenn. Itt férhetünk 
hozzá a mikro karakterekhez. Normál üzemmódbóla 3PRINT CUR (I, J) CHR X (151) 
utasítással érjük el az I41-edik sor J-r1., J-2.,...,40. Karaktereiben a 3x2-es mikro felbontást. 
Ugyanezt érjük al a xPRINT TAB (J) CHR 0 (151) utasítással a gép számára aktuális sorban. 
Az élő mikro karakterek indexeit a kurzor pozíció indexeiből az I1-3"I--0;1;2 és J1-2"J:0;1 
képletekkel határozhatjuk meg, ahol J-0;...;:39 bármelyikével számolhatunk. 

A grafikus üzemmódra átállított karakter pozícióban kétféle eljárással rajzolhatunk : 
1. PRINT CHR T (K) az ASC KÓD (K) grafikus képét jeleníti meg a kijelölt pozícióban vagy 
pozíciókban. 2., a SETDOTKII, J1) utasítás kivilágítja az II, JI mikro karaktert. 

Grafikus üzemmódra állított sorrész, bármelyik pozíciótól kezdve, feltéve, hogy ábrától 
mentes, normál üzemmódra állítható vissza. Ezt a x7PRINT CUR (I, L) CH R XX(135) utasítás- 
sal érjük el (L Ca 40). Az I, L;I, L- 1] stb. pozíciókba karakterek írhatók. 


HTZ grafika 


A képernyő mikro karakteres felbontását az alkalmazási utasítások közvetlenül oldják meg. 
Igy a SET (X, Y) 48"128 mikro karakterre bontja a képernyőt és egyben kigyújtja az X, Y 
koordinátával (o£XS127, OSYS47) rendelkező mikro karaktert. Hasonlóan funkcionál a 
RESET (X, Y) és a POINT (X, Y) a kioltás és ellenőrzés esetén. Ha a pontokat megfelelően 
pozicionáljuk, geometriai vagy más pl. képi alakzatok hozhatók létre. 


TEXAS grafika 


A mikro grafika a karakterek közvetítésével érvényesül. Egy képernyő karakter 878 mikro 
és 82 mini karakterre bontható. Egy mini karakter eszerint 4 mikro karakterből áll. Egy mini 
karakter 1—4 mikro karakterét az 1,2,...,15 DECIMÁLIS számokkal aktiválhatjuk. Ahol a szám 
BINÁRIS alakjában 1-es áll ott képelem keletkezik a mini karakterben. PIl.: 


la] ll Fel 11! 1" Va Da 


A DECIMÁLIS számokat HEXADECIMÁLIS rendszerbe átvive a mini karakterek képe egy-egy 
számjeggyel azonosítható (példánkban "CA"). Eszerint egy karakterben foglalt mikro karak- 
terek képe egy 16 karakterből álló STRING-gel adható meg. A karakterek felülről-lefelé és 
balról-jobbra olvasva kerülnek be a STRING-be. Az így megtervezett karakterek 128—159 
közötti kódot kapnak. (Pl. 130, J$). 
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A mikro karakterből összeállított karakter megjelenítése a CALL CHAR (JK, J$) és a 
DCALL HCHAR (I, J, JK, R), illetve a CALL VCHAR (I, J, JK, R) utasítás-párral lehetséges. 
Ha R, vagyis a karakter ismétlődési száma 1, akkor a JK kódú J$ karakter az I-edik karakter 
tól jobbra, illetve lefelé R-szer ismétlődik. Például J$- 000000FFFF009009", JK-130 esetén a 
DCALL CHAR (139, J6) :: CALL HCHAR (19, 1, 130, 32) vízszintes vonalat rajzol a képernyő 
19-edik sorába. Ha viszont R-768 és [-J-1, akkor a teljes képernyőt lefedi a JK karakter akár a 
HCHAR, akár a VCHAR utasítással dolgozunk. 

Ha a gép karaktereit használjuk a rajzolás során, akkor a CALL CHAR utasítás elmarad és JK- 
ként a gépi karakter ASC kódját használjuk. 


Színes technika 


5CALL SCREEN (CP) a képernyő keret színét adja meg a CP - 1—16 színkódok szerint. 
53CALL COLOR (JIK, JCK, HCK) a jel (JCK) és háttere (HCK) színkódok, valamint a jel- 
intervallum (JIK) kód alapján a CALL HCHAR (I, J, JK, R)-ban megadott JK karaktert és 
hátterét színezi. A JIK az alábbi táblázatból olvashatók ki a JK ismeretében: 


64—71 


32—39 


40—47 48-55 56-63 72-79  80—87 


JK 88—95 96-103 104-I11 112—119 120—127 128—135 136—143 


JIK 


A színező utasítások sorrendje: 


DCALL SCREEN (CP) : : CALL COLOR (JIK, JCK, HCK) : : CALL CHAR (IK, J3) : : 
5CALL HCHAR (I, J, JK, R) Az utasításokban szereplő kódok változókként is megadhatók, 
beleértve a JIK is, amit a JK intervallumokkal adott feltételből határozhat meg a program. 


PRIMO grafika 


A képernyő mikro karakteres felbontását az alkalmazási utasítások közvetlenül oldják meg. 
Igy a SET (X, Y) 192"256 mikro karakterre bontja a képernyőt és egyben kigyújtja az X, Y 
koordinátákkal (OSCXS255, 1912Y20) rendelkező mikro karaktert. Hasonlóan funkcionál az 
X, Y pontot kioltó RESET (X, Y) és a POINT (X, Y) logikai függvény, ami 1-el az aktivitást 
jelzi. 
Alakzatok előállítása az X, Y pontok megfelelő pozicionálásával jár együtt. 
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TV COM grafika 


A mikro grafika önállóan és a karakterek közvetítésével is megvalósítható. A PLOT 
X, Y utasítás (OSXSL1023 és 9592Y20) kigyújtja a képernyő X, Y koordinátájú pontját attól 
függetlenül, hogy GRAPHICS 2, 4, 16 állapotban működik a gép. A PLOT utasítás alkalmas 
szakasz: 3PLOT XI, YI; X2, Y2, pontsor: 3PLOT XI, YI, X2, Y2, ... és zárt poligon (három- 
szög, négyszög stb.) ábrázolására is. Előírhatjuk azt is, hogy a szakasz összefüggő szaggatott 
vonallal rajzolódik ki a két végpont között. Erre szolgál a 35ET STYLE VK utasítás, ahol 
VK-1—14 a vonal mintakódja. 

A mikro grafika karakterek közvetítésével is megoldható. Itt szerepet játszik a gép mű- 
ködési állapota, ami meghatározza a képernyő karakter felbontását. A PLOT ütasítás minden 
I, J koordinátához automatikusan a 107I, 87J koordinátákat rendeli. Ha az automatikus koordi- 
nátákat megfelelően nagyítjuk, mikro koordinátákat nyerünk: 


Állapot Kar. felb. Aut. felb. Mikro kar. felb. 
"GRAPHICS 2 24"64 240"512 4"2409x2"512 
GRAPHICS 4 24"32 240256 4"240x4"256 
GRAPHICS 16 24"16 240"128 4r240x8":128 


Szerencsés körülmény, hogy az I, J karakter koordináták a programozó számára csaknem 
közvetlenül (2xPLOT 2"J, 4"I; PLOT 4"J, 4"I; 3PLOT 8"J, 4"D alakulnak mikro karakter 
koordinátákká. 
Ha az I, J koordinátákkal adott karakter belsejében akarunk egy mikro karaktert elérni, 
akkor a 
23PLOT NIJ §(J—1I) 4 MJ, NI F (I 61) MI 
utasítást alkalmazzuk, ahol N és M a gép állapotától és a koordináta jellegétől függ: 


Állapot NI MI NJ MJ 

GRAPHICS 2 4 1—39 2 1—15 
GRAPHICS 4 4 1—39 4 1—31 
GRAPHICS 16 4 1—39 8 1—63 


Színes technika 


25SET BORDER CK a képernyő keret színét adja meg a CK-0—15 színsorszámnak meg- 
felelően. A választható színek száma függ a gép állapotától. A GRAPHICS 2, 4, 16 állapotok 
2, 4, 16 szín alkalmazását engedik meg. A színválasztásról a 25ET PALETTE CK, CK, illetve 
2SET PALETTA CK, CK, CK, CK utasítással gondoskodunk. A GRAPHICS 16 esetben nem 
kell színt választani. A CK a megengedett színek kódszámaival azonosítható. Kódszámok és sor- 
számaik: 0.0; 1I,1; 4,2; 5,3; 164; 17,5; 29,6; 21,7; 648; 65,9; 68, 10; 69,11; 80,12; 81,13; 
84 14; 85,15. 
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Ha 2 vagy 4 színt választhatunk, akkor a fenti kódokat használjuk, de a választott színek 
saját sorszámot (1,2; 1, 2, 3, 4) kapnak. Mindhárom állapotban színezhetjük a képernyőt: 
5SET PAPER S(CK), valamint a jeleket : 2 SET INK S (CK) azoknak a színeknek a sorszámai 
közül választva, amelyeket a SET PALETTE utasítással lekötöttünk. 

Az utasítások sorrendje: 2S5ET BORDER CK : GRAPHICS V : SET PALETTE 
SET PAPER S(CK) : SET INK S(CK) : PLOT X, Y vagy PRINT AT I, J : A stb. 


úg vág sg 


VT—-16 grafika 


A P122-nél részletes magyarázatot adtunk. 


7. IRODALOMJEGYZÉK 


Gépkönyvek 


:Commodore—64 Micro Computer HANDBUCH. 

MPS-8Ó1 DOT MATRIX PRINTER USERS MANUEL. 

FLOPPY DISK VCI541 Bedienunghandbuch. 

153 DATASETTE UNIT OPERATING INSTRUCTIONS. Commodore £., 
XABC—-80 USERS MANUAL. B. Rádiótechnikai Gyár. 

"HT-IO8ÓZ és HT—2O8OZ Használati útmutató. 

Programozás kezdőknek. Híradástechnikai Szövetkezet. 

BASIC kézikönyv HT—8ÓZ SZÁMITÓGÉPEKHEZ. HSZ. 

$Teaxas Instruments TI—99/4 A Computer Bedienungsanleitung. 

TI Extended BASIC FOR THE TI—99/4 HOME COMPUTER. Texas £. 

PRIMO felhasználói kézikönyv. 

Commodore típusú soros perifériák kezelése PRIMO számítógéppel (kézirat). COSY. 
:TV COMPUTER kezelési útmutató. (Garai G., Gáspár Cs., Velkei Z.). VIDEOTON. 
BASIC programozási segédlet (Balogh László. Sz. B.: Garai G., Gáspár Cs., Velkei Z.). 
VIDEOTON. 

£VT—16 BASIC (kézirat). VIDEOTON. 

WM 4Ó$Ó OPERATORS MANUAL. WALTERS M. I. 

Donald Alcock: ISMERD MEG A BASIC NYELVET. MK. Budapest. 1983. 

KOCSIS A.: A BASIC I-II-III. SZÁMALK. BP. 1983. 

LÁNGOS István: A COMMODORE- 64 mikrogép kezelése és programozása. 
COMPORGAN R. BP. 1983. 

LSI AIk. Techn. Tanácsadó Szolgálat: Mikrogépes Operációs Rendszerek a CP/M 
operációs rendszer. 

Ury László: COMMODORE —64 Basic felhasználói kézikönyv. 
Englisch—Szczepanowski: A VC—1541-es lemezegység programozása. 
DATABECKER-—-NOVOTRADE. BP. 1985. 

Angerhausen—Englisch—Gerits: Tippek és trükkök a COMMODORE—64-eshez. 
DATABECKER-—-NOVOTRADE. BP. 1985. 
Angerhausen—Becker—Gerits—Schellenberger: A BASIC programozás magas iskolája a 
C-—64-esen. DATABECKER—-NOVOTRADE. BP. 1985. 

L Englisch: Gépi kódú programozás a COMMODORE—64-esen. 
DATABECKER-—-NOVOTRADE. BP. 1985. 
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8. ANGOL-MAGYAR SZÓJEGYZÉK 


A 

already 
and 
append 
argument 
array 

at 

auto 
available 


B 


base 
bit 
block 
border 
break 
buffer 


C 

call 

cant 
carriage 
cartridge 
chain 
character 
check 
choice 
circle 
clear 
close 
code 
command 
color 
common 
compatible 
complex 
computer 
conflict 


k994 
to 
s 


már 

és 

csatol 
független 
tömb 

nál, nél 

ön ... 
felhasználható 


hibás 
kiindulópont 
falat 

blokk 
szegély 
megszakítás 
puffer 


hív 

nem tud 
kocsi 
kazetta 
láncol 
betű 
ellenőriz 
választás 
kör 
tiszta 
bezár 
kód 
parancs 
szín 
közös 


összeegyeztethető 


összetett 
számítógép 
összeütközés 


€ 
contol 


. continue 


create 
CUrsor 


D 

data 

date 
decimal 
definition 
delete 
device 
direct 
directory 
disk 
display 
division 
do 

dot 
duplicate 


E 
edit 
else 
end 
enter 
erase 
erros 
exit 
exist 
extended 
extra 


ellenőrzés 
folytat 
teremt 
kurzor 


adat 
dátum 
tizes 
meghatározás 
tölör 
eszköz 
közvetlen 
címtár 
lemez 
kirakat 
osztás 
csinál 
pont 
kétszeres 


szerkeszt 
különben 
vége 
bejegyez 
kitöröl 

hiba 

kilép 

létezik 
kiterjesztett 
külön 


agagolás 
mező 
adatgyűjtő 
állandó 


F 

floppy 
for 
format 
found 
free 
from 
full 
function 


G 

get 

go 
graphics 


H 

handler 
hardware 
head 
hexadecimal 
home 


I 
if 
ignored 


illegal 

inch 
incorrect 
ink 

input 
insert 
instruction 
instrument 
integer 
interact 
interpreter 


K 
key 
kill 


laza 

át 
formátum 
talált 
szabad 
tól, óta 
teli 
függvény 


kap, szerez 


megy 
rajzolt 


kezelő 
fizikai gépr. 
fej 
tizenhatos 
otthon 


ha 

nem vette 
figyelembe 
törvénytelen 
2,54 cm 
hibás 

tinta 

betesz 
beszúr 
útbaigazít 
eszköz 

egész 
egymásra hat 
tolmács 


billentyű 
megsemmisít 


bal 
hosszúság 
enged, hagy 
sor, vonal 
lista 


L 
load 
locate 
long 


M 
manager 
master 
manual 
many 
memory 
merge 
mid 
mismatch 
missing 
mode 


N 

name 
new 
next 

no, not 
number 
numeric 


o 


okay 
old 

on 

open 
operator 
option 
or 

out 
output 
overflow 


P 
palette 
paper 
past 
peek 
pen 
play 
plot 
point 
pointer 


betölt 
telepít 
hosszú 


menedzser 
gazda 
kézikönyv 

sok 

memória 
egybeolvaszt 
közötti 

hibás párosítás 
hiányos 

alak 


név 

új 
következő 
nem 

szám 
számszerű 


le 
rendben 
régi 

fel 
kinyílik 
kezelő 
szabad választás 
vagy 
vége 
kitesz 
túlfolyik 


festéklap 

papír 

túl valamin 
kukucskál 

toll 
működésbehoz 
ábrázol 

pont 

mutató 
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P 

poke 
position 
power 
prepare 
present 
press 
print 
priority 
protect 
put 


R 
random 
rang 
read 
ready 
real 
record 
recorder 
recording 
redimensioned 
redo 
relative 
remakr 
reset 
restore 
return 
rewind 
right 

run 


S 

save 
screen 
searching 
sector 
select 
seguential 
serial 

set 

shift 

size 
software 
space 
sprite 
sguare 
statement 
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eltesz 
fekvés 
energia 
előkészít 
jelen van 
lenyom 
nyomtat 
elsőbbség 
véd 

tesz 


találomra 
hatókör 
olvas 

kész 

valós 
feljegyzés 
hangfelvevő 
felvesz 

újra dim. 
átalakít 
viszonylagos 
megjegyzés 
helyretesz 
visszaad 
visszatér 
visszacsévél 
jobb 

fut 


megőriz 
képernyő 
keres 
körcikk 
választ 
SOros 
SOTrOS 
helyez 
váltás 
terjedelem 
program 
térköz 
szellem 
négyzetes 
utasítás 


S 

step 

stop 
string 
style 

sub 
subscript 
swap 
syntax 
system 


to 
track 
true 
twice 
type 


U 
unavailable 
undefined 
understood 
unit 

used 

user 


v 

value 
variable 
verify 
version 


W 

wend 
while 
width 
without 
write 


lépés 
megállás 
füzér 
írásmód 
alatt 

index 
cserél 
mondattan 
rendszer 


táblázat 
hangszalag 
próba 

az 

akkor 

idő 
túlságosan 
ig 

pálya 

igaz 
kétszeres 
típus 


elérhetetlen 


nem meghatározott 


értette 
egység 
felhasznált 
használó 


érték 
változó 
átvizsgál 
változtat 


irányít 
míg 
szélesség 
nélkül 
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